(Resolvido)Checar CD no Drive!

[Douglas Soares]

Bom dia, gostaria de saber como checar se um CD está inserido no drive de CD, a letra do drive eu consigo com esta função:

function GetFirstCdRomDrive: string;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: pchar;
begin
  Result := '';
  r := GetLogicalDriveStrings(sizeof(Drives), Drives);
  if r = 0 then exit;
  if r > sizeof(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;  // Point to the first drive
  while pDrive^ <> #0 do begin
    if GetDriveType(pDrive) = DRIVE_CDROM then begin
      Result := pDrive;
      exit;
    end;
    inc(pDrive, 4);  // Point to the next drive
  end;
end;

Ela retorna 3 algarismos, exemplo: "E:\"

E ai como fazer?

Abraços

Editado Setembro 18, 2009 por Douglas_Soares

[Douglas Soares]

Já consegui, obrigado!