Delphi Code - kann den jemand für ne DLL umschreiben

[Sharky]

Und wenn Du dann noch das Funktionsergebniss änderst kannst Du prüfen ob überhaupt ein CD-ROM vorhanden ist.

Delphi-Quellcode:

function RefreshDriveList(DrivesList : TStrings): Boolean;
var
  i,typ: Integer;
  s: string;
  b_temp : Boolean;
begin
  b_temp := False;
  for i:=0 to 25 do
  begin
    s := Chr(i + 65) + ':\';
    typ := GetDriveType(PChar(s));
    if typ = DRIVE_CDROM then
    begin
      DrivesList.Add(s);
      b_temp := True;
    end;
  end;
  result := b_temp;
end;

Aufruf:

Delphi-Quellcode:

  if not (RefreshDriveList(ComboBox1.Items)) then
  begin
    ShowMessage ('Keine CD-ROM Laufwerke gefunden');
  end;