Mega Code Archive

 

Categories / Delphi / System

 

Sisteminiz beeplemesin

//www.dronymc.cjb.net //drony@mynet.com //icq:266148308 {burada system beep'ini kapatıyoruz via speakerdan(kasa speakerı) gelen sesi değil sakın karıştırmayın } // Disable System beep: procedure TForm1.Button1Click(Sender: TObject); begin SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE); end; // Enable System beep: procedure TForm1.Button2Click(Sender: TObject); begin SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE); end; //test (aktif ve deaktif edip beepletin) procedure TForm1.Button2Click(Sender: TObject); begin Beep; end;