[delphi] tagi z plików MP3 zakodowanych w formacie ID3v2
[delphi] problem ze zmianą ikony programu
[delphi] Rysowanie na Canvasie z pliku *bmp
[delphi] procedury przy pokazaniu formy
Samsung GT-B3410 Delphi
[delphi] sprawdzanie poprawności adresu
[delphi] efekt przewijania label'a
Algorytm sortowania bąbelkowego w Delphi
[delphi] przylepianie formy
[delphi] konstrukcja wyjątku
chomiki
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)
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);
1. Dodawanie pliku:
procedure TForm1.DodajClick(Sender: TObject);
begin
if OpenDialog1.Execute then
ListBox1.Items.Add(OpenDialog1.FileName);
end;
2.Usuwanie Pliku
procedure TForm1.UsunClick(Sender: TObject);
begin
if ListBox1.ItemIndex <> -1 then
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
3. OnCilck ListBox'a
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
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
procedure TForm1.BTNPauseClick(Sender: TObject);
begin
MediaPlayer1.Pause;
end;
6.Stop MediaPlayera
procedure TForm1.BTNStopClick(Sender: TObject);
begin
MediaPlayer1.Stop;
MediaPlayer1.Close;
end;
7. Zapis PlayListy
procedure TForm1.ZapiszClick(Sender: TObject);
begin
if SaveDialog1.Execute then
ListBox1.Items.SaveToFile(SaveDialog1.FileName)
end;
8. Odczyt
procedure TForm1.OtworzClick(Sender: TObject);
begin
if OpenDialog1.Execute then
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
end;
Robię edytor HTML. Co zrobić by po kliknięciu na button/rysunek tekst (np. jakiś tag) wkleił się do SynEdit'a?
Nic trudnego. Wystarczy:
SynEdit1.SelText:='<html> </html>'
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
