Delphi » Gotowce » Żarty w Delphi

CD Machacz

Demonical Monk
  • 2008-08-18 22:44:44
  • 2012-04-22 15:41:16
  • 1 komentarz
  • 1323 odsłony

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

Żarty w Delphi

1 komentarz

MA

W laptopie nie za bardzo pomacha:D