uses MMsystem
procedure TForm1.Button1Click(Sender: TObject);
begin
mcisendstring('set cdaudio door open wait',nil,0,handle);
end;
És becsuk:
procedure TForm1.Button1Click(Sender: TObject);
begin
mcisendstring('set cdaudio door closed wait',nil,0,handle);
end;