Device- Delphi de Hoparlörü açıp kapatmak.

Bazı projelerde sesi azaltmak yetmeyebilir.Hoparlörü kapatmak gerekir.

Gelelim kodlarımıza

formumuza 2 adet button ekliyoruz.
 button1 in click eventına  bu kodu yazıyoruz.
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_UPDATEINIFILE); //hoparlör kapanır 

button2 in click eventına bu kodu yazıyoruz.

 SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_UPDATEINIFILE); //hoparlör açılır

bir sonraki yazımızda buluşmak üzere...