CD/DVD-Laufwerk prüfen

[Luki206]

Hat sich erledigt Habe es jetzt so hinbekommen:

Delphi-Quellcode:

procedure GetDrives(var Item: String);
var
    Drive: Char;
    DriveType: Integer;
    DriveMask: Integer;
    Flag: Integer;
begin
    DriveMask := GetLogicalDrives; //Bitmaske holen
    flag := 1; //Startflag setzen
    for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
    begin
      if (flag and DriveMask) <> 0 then
      begin
        DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
        if DriveType=DRIVE_CDROM then
        begin
         Item := (Drive);
        end;
      end;
      flag := flag shl 1; //Ein Bit weiter nach links gehen ( = flag * 2)
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var show: String;
begin
GetDrives(show);
Label1.Caption := show;
end;