Fórum abrir o cdrom!! #240297

function OpenCloseDrive(DriveLetter: Char; Open: Boolean): 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
         if Open then
            Result:=mciSendString(PChar(´set ´ + ´Drive_´ + DriveLetter + ´ door open´),nil,0,0)
         else
            Result:=mciSendString(PChar(´set ´ + ´Drive_´ + DriveLetter + ´ door closed´),nil,0,0);

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