Mega Code Archive

 

Categories / Delphi / Hardware

 

Speakerdan belirlenen süre kadar ses çıkartmak

procedure SesCikar(Zaman : Integer); begin Asm mov al, 255; out 97, al; end; Sleep(Zaman); Asm mov al, 0; out 97, al; end; end;