All pastes #73989 Raw Edit

Gopneg

public text v1 · immutable
#73989 ·published 2006-06-28 14:56 UTC
rendered paste body
procedure TForm1.Button1Click(Sender: TObject);
var Time: DWORD;
begin
  Time := GetTickCount;
  mciSendString('Set cdaudio Door Closed Wait', nil, 0, handle);
  ShowMessage(IntToStr(GetTickCount - Time));
  Time := GetTickCount;
  mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
  ShowMessage(IntToStr(GetTickCount - Time));
end;