|
Sujet : comment ouvrir et fermer un graveur (ou lecteur CD) logiciellement? |
| JWhy |
gabrielj> pareil que Kyle_Katarn:
il faut que tu 'open D: type cdaudio alias CDDrive' (init) et si ca a reussi, que tu 'set CDDrive door open' ou 'set CDDrive door closed' (ouvrir/fermer le lecteur) puis que 'close CDDrive' (release)
en delphi, ca donnerait qqchose comme ca :
Citation :
function SetCDTray( ADrive: char; AOpen: boolean ): boolean;
var
sCmd: string;
begin
sCmd := 'open '+ADrive+':'+' type cdaudio alias CDDrive';
if (mciSendString(PChar(sCmd),nil,0,0) <> 0) then
Result := false
else
try
try
if AOpen then
sCmd := 'set CDDrive door open'
else
sCmd := 'set CDDrive door closed';
mciSendString(PChar(sCmd),nil,0,0);
Result := true;
finally
mciSendString('close CDDrive',nil,0,0);
end;
except
result := false;
end;
end;
|
HTH! --Message édité par JWhy-- |
