[Petermechanic]

Chciałbym wam zaproponować dział FAQ. Zmnijszyłoby to liczbę tematów ponieważ jak u nas użytkownik znalazłby jakąś poradę to nie musiałby pisać nowgo tematu w sprawie pomocy.
Kod umieszczaj między znaczniki [code ] a [/ code]
Nie piszcie tu postów z pomocą, ponieważ ten temat będzie zaśmiecony.
Piszcie wyraźnie i zrozumiale najłatwiej
Lista:
1. {Jak zamknąć system, uruchomić ponownie Windows lub komputer
Jak uruchomić jakiś plik znając jego ścieżkę ... ?
Jak pobrać z systemu aktualną godzinę ?
Jak pobrać z systemu aktualną datę ?
Jak odegrać dźwięk błędu ?
Jak odegrać muzyczkę startową systemu ?
Jak zamienić przyciski myszy ?
Jak ustawić położenie kursora myszy na ekranie ?
Jak ograniczyć obszar po którym może poruszać się mysz ?
Jak zrobić systemowego About'a ?
Jak odświeżyć pulpit ?}Autor: ExeQtoR
2. Playlista(Autor: Petermechanic)
3. Dodawanie tagów do edytora HTML(Autor: markoll)
2. Konwersja typów(Autor: Petermechanic)

[ExeQtoR]

Cytat:

1. Jak zamknąć system, uruchomić ponownie Windows lub komputer procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsEx(funkcja,0); end; Jako funkcji możemy użyć jedną z pięciu dostępnych opcji: EWX_FORCE - wyjście bez pytania EWX_LOGOFF - wylogowanie EWX_POWEROFF - wyłaczenie komputera EWX_REBOOT - restat EWX_SHUTDOWN - stan oszczędności 2. Jak uruchomić jakiś plik znając jego ścieżkę ... ? WinExec('X',sw_Normal); X to ścieżka dostępu. ścieżka może być względna, lub bezwzględna. 3. Jak zrobić by katalog nie był dostępny Wystarczy zmienić nazwę np 'c:\katalog' na 'c:\katalog.{21EC2020-3AEA-1069-A2DD-08002B30309D}'. {21EC2020-3AEA-1069-A2DD-08002B30309D} jest identyfikatorem Panelu Sterowania uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var Rekord:TSHFileOpStructA; begin with Rekord do begin Wnd:=Handle; wFunc:=FO_RENAME; pFrom:='c:\katalog'; pTo:='c:\katalog.{21EC2020-3AEA-1069-A2DD-08002B30309D}'; end; if SHFileOperation(Rekord)<>0 then ShowMessage('Błąd') end; 4. Jak pobrać z systemu aktualną godzinę ? TimeToStr(Time); 5. Jak pobrać z systemu aktualną datę ? DateToStr(Date); 6. Jak odegrać dźwięk błędu ? Najprościej będzie użyć beepera. Wprawdzie pojawiło się dużo komponentów zastępujących beeper, ale my użyjemy standardowego systemowego beepu. A to bardzo prosta procedura: beep; 7. Jak odegrać muzyczkę startową systemu ? Oto najprostsza funkcjia: PlaySound('SystemStart', 0, SND_SYNC); 8. Jak zamienić przyciski myszy ? SwapMouseButton(True); Aby przywrócić przyciski myszy należy podać parametr False 9. Jak ustawić położenie kursora myszy na ekranie ? SetCursorPos(0,0); // ustawia kursor w pozycji 0x0 czyli w prawym górnym rogu 10. Jak ograniczyć obszar po którym może poruszać się mysz ? var Obszar:TRect; begin Obszar.Top:=0; Obszar.Left:=0; Obszar.Right:=20; Obszar.Bottom:=20; ClipCursor(@Obszar); end; 11. Jak zrobić systemowego About'a ? I kolejny raz odwołujemy się do moduły ShelApi. Dodaj go do uses i na kliknięcie guzika w pisz taki oto kod: ShellAbout(Form1.Handle, 'Program', 'Jest OK', Application.Icon.handle); // 1 Parametr: Uchwyt okna // 2 Parametr: Nazwa programu // 3 Parametr: Tekst // 4 Parametr: Uchwyt ikony naszej aplikacji 12. Jak odświeżyć pulpit ? Wystarczy taki mały kod: UpdateWindow(GetDesktopWindow);

[Petermechanic]

1. Dodawanie pliku:

Kod:

procedure TForm1.DodajClick(Sender: TObject); begin   if OpenDialog1.Execute then   ListBox1.Items.Add(OpenDialog1.FileName); end;

2.Usuwanie Pliku

Kod:

procedure TForm1.UsunClick(Sender: TObject); begin   if ListBox1.ItemIndex <> -1 then   ListBox1.Items.Delete(ListBox1.ItemIndex); end;

3. OnCilck ListBox'a

Kod:

procedure TForm1.ListBox1Click(Sender: TObject); begin   if ListBox1.Items.Count > 0 then   begin     btnPlay.Enabled := True;   end else   begin     btnPlay.Enabled := True;   end; end;

4.Play MediaPlayera

Kod:

procedure TForm1.BTNPlayClick(Sender: TObject); begin   if ListBox1.ItemIndex <> -1 then begin   MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex];   MediaPlayer1.Open;   MediaPlayer1.Play; end;

5.Pauza Media Playera

Kod:

procedure TForm1.BTNPauseClick(Sender: TObject); begin   MediaPlayer1.Pause; end;

6.Stop MediaPlayera

Kod:

procedure TForm1.BTNStopClick(Sender: TObject); begin   MediaPlayer1.Stop;   MediaPlayer1.Close; end;

7. Zapis PlayListy

Kod:

procedure TForm1.ZapiszClick(Sender: TObject); begin   if SaveDialog1.Execute then   ListBox1.Items.SaveToFile(SaveDialog1.FileName) end;

8. Odczyt

Kod:

procedure TForm1.OtworzClick(Sender: TObject); begin   if OpenDialog1.Execute then   ListBox1.Items.LoadFromFile(OpenDialog1.FileName); end;

[markoll]

Robię edytor HTML. Co zrobić by po kliknięciu na button/rysunek tekst (np. jakiś tag) wkleił się do SynEdit'a?
Nic trudnego. Wystarczy:

Kod:

SynEdit1.SelText:='<html> </html>'

[Petermechanic]

Str-string
Int-integer
Bool-boolean
IntToStr-z Integer na String
StrToInt- z String na integer(pamiętajmy, aby w string była liczba!)
BoolToStr- z Boolean na String
StrToBool- z String na boolean(pamiętajmy, aby w string było True lub False)
TimeToStr-z czas na string
DateToStr- z dnia na stringa

To chyba wszystko

//BYŁ EDIT