Como ejetar CD-Rom ?

Question

Ol�.Primeiro de tudo queria avisar que fiquei um tempo sem acessar o forum pois estou cheio de coisas a fazer.Bom, queria saber se alguem sabe e poderia me passar o c�digo de como ejetar o CD-Rom. Eu ...

Gandalf · Answer

{Para Abrir:}mciSendString(�Set cdaudio door open wait�, nil, 0, handle);{Para Fechar:}mciSendString(�Set cdaudio door closed wait�, nil, 0, handle);...

Nildo · Answer

At� a� beleza.. Mas eu tenho 2 drives de CD-Rom. O Drive �D� e o �E�. Ele est� ejetando o drive �D�. Como eu fa�o entao pra ejetar o drive �E�?...

Gandalf · Answer

n�o sei, peguei essa dica em um manual de dicastente mudar o 0 por 1 talvez de certo...

Gandalf · Answer

talvez sirva para fechar apenas o cd que tem o cabo de audio
mciSendString(�Set [b:d12b7baad0]cdaudio[/b:d12b7baad0] door open wait�, nil, 0, handle);
isso deve ser usado emprogramas para tocar cd de audio

Nildo · Answer

Mas funciona. Ele abre o CD principal s�.
Dae eu achei essa fun��o que abre qual eu quiser, mas n�o estou conseguindo agora fechar o drive. Aki vai:

function OpenDrive(DriveLetter: char): longint;
var
   ParamString: string;
begin
   if DriveLetter = #0 then
   begin
      ParamString:=�set cdaudio door open�;
      Result:=mciSendString(PChar(ParamString),nil,0,0);
   end
   else
   begin
      ParamString:=DriveLetter + �: Alias Drive_� + DriveLetter + � Type CDAudio�;
      Result:=mciSendString(PChar(�open � + ParamString),nil,0,0);

      if Result=0 then
         Result:=mciSendString(PChar(�set � + �Drive_� + DriveLetter + � door open�),nil,0,0);

      if Result=0 then
        Result:=mciSendString(PChar(�close � + �Drive_� + DriveLetter),nil,0,0);
   end;
end;

E pra chamar a fun��o:

var
   b: PChar;
   err: Integer;
begin
   err := OpenDrive(�D�);
   b := PChar(AllocMem(255));

   if err <> 0 then
   begin
      mciGetErrorString(err, B, 255);
      ShowMessage(b);
   end;
end;

Ser� que alguem consegue fazer fechar o drive? Ps.: S� trocando os OPEN por CLOSE n�o funciona =(

Cebikyn · Answer

Se para abrir �:�set � + �Drive_� + DriveLetter + � door open�pq n�o tentar:�set � + �Drive_� + DriveLetter + � door [b:1bc9e876c4]closed[/b:1bc9e876c4]� para fechar?Deve funcionar......

Nildo · Answer

Putzzz como naum lembrei do [b:5fc033d846]CLOSED[/b:5fc033d846].. Estava colocando [b:5fc033d846]CLOSE[/b:5fc033d846].Valew Cebikyn....

F�rum Como ejetar CD-Rom ? #195443