CD-ROM Laufwerke erkennen

[johnnycat14]

Hallo Leute,
es gibt so vieles über CD-ROM erkennung zu lesen,
aber ich habe wirklch schwierigkeiten das umzusetzen. :(
Kann denn keiner das mal verständlich erlklären? Auch für Delphianfänger?!
Gruß John

[Garfield]

Was willst Du denn umsetzen?

Was einfaches ist dort: http://www.delphipraxis.net/internal...ct.php?t=48698

Oder das Projekt im letzten Beitrag ansehen: http://www.delphipraxis.net/internal...ct.php?t=80846

[la.reunion]

Hier noch ein Code um den Name des jeweiligen Laufwerks anzuzeigen(Also den Name des eingelegten Mediums)

Delphi-Quellcode:

function GetVolumeName(DriveLetter: Char): string;
var
  dummy: DWORD;
  buffer: array[0..MAX_PATH] of Char;
  oldmode: LongInt;
begin
  oldmode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveLetter + ':\'),
                         buffer,
                         SizeOf(buffer),
                         nil,
                         dummy,
                         dummy,
                         nil,
                         0);
    Result := StrPas(buffer);
  finally
    SetErrorMode(oldmode);
  end;
end;

Lg La.Reunion