åben et cdrom drev!!

til dette til "uses" MMSystem

For at åbne drevet :
mciSendString('Set cdaudio door open wait', nil, 0, handle);

For at lukke drevet :
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Hilsen Jens

hehe.. prøv at lave en form med en timer på 1 sek, ontimer event: (flip er en global variable(boolean))

begin
  if flip then
    mciSendString('Set cdaudio door open wait', nil, 0, handle)
  else
    mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

"handle" hvad er det ?

Det er formens handle.

"Form1.Handle"