CD-Skubud

jo da no problemo:

procedure TForm1.Button1Click(Sender: TObject); //åbner cd
begin
  mciSendString('Set cdaudio door open wait', nil, 0, handle);


end;

procedure TForm1.Button2Click(Sender: TObject); //lukker cd
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

end;

husk at uses MMSYSTEM

Der er da slet ingen forskeld på de to sætninger??

- Er det så ikke nok med en knap??

stone: Hva' så hvis man har flere CD-ROM drev/brændere !? :)

Jeg har tidligere svaret med noget kode hvor man selv kunne bestemme hvilket drev man ville åbne, men har ikke lige tid til at kigge over 1000 besvarede spørgsmål igennem ;)

Snowball

acid-head

open <> closed

Stoney

hhmm...Nu gjorde jeg det alligevel ;)

Se nederst på http://www.eksperten.dk/spm/57435

Lav drevbogstavet i OpenCloseCD('h:\',True); om til det som passer i din PC !

Snowball

snowball du har ret..men spørgsmålet gik ud på at åbne for cddrevet.

Tak for hjælpen begge to: !!!!