trouvé en delphi : (ca doit pas être difficile a traduire en C)
procedure OpenDoor(DriveLetter: string) ;
var
AliasName: string;
st: string;
begin
AliasName := 'Laufwerk' + DriveLetter ;
st := 'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio';
mciSendString(@st[1], nil, 0, 0);
st := 'Set ' + AliasName + ' Door Open';
mciSendString(@st[1], nil, 0, 0);
end;
procedure CloseDoor(DriveLetter: string);
var
AliasName: string;
st: string;
begin
AliasName := 'Laufwerk' + DriveLetter;
st := 'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio';
mciSendString(@st[1], nil, 0, 0 ) ;
st := 'Set ' + AliasName +' Door Closed';
mciSendString(@st[1], nil, 0, 0);
end;
---------------
-( BlackGoddess )-