Gotowce » Żarty w Delphi

CD Machacz

Tytuł podpowiada, do czego to służy... a oto kod:

uses
  MMSystem;
 
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
 MCISendString('Set cdaudio door open wait', nil, 0, Handle);
 MCISendString('Set cdaudio door closed wait', nil, 0, Handle);
end;


Autor: fatalbomb

1 komentarz

marogo 2012-07-27 22:10

W laptopie nie za bardzo pomacha:D