ejetando gaveta de cd rom

Delphi

03/08/2003

Gostaria de saber como ejeto a gaveta de um cd rom se poderem me informar


Ecmsoftware

Ecmsoftware

Curtidas 0

Respostas

Imstaff

Imstaff

03/08/2003

Uses MMSystem
[i:b41f79e6bb]//Open CDROM Drive[/i:b41f79e6bb]
mciSendString(´Set cdaudio door open´, nil, 0, handle);
[i:b41f79e6bb]//Close CDROM Drive[/i:b41f79e6bb]
mciSendString(´Set cdaudio door closed´, nil, 0, handle);

Teste isso e veja se funciona


GOSTEI 0
POSTAR