Auch vielen Dank an marabu. Habe mich letzendlich für die Lösung von matze entschieden, da ich diese besser verstanden habe.
Delphi-Quellcode:
function DriveExists(DriveByte: Byte): Boolean;
begin
Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
for I := 0 to 25 do
if not DriveExists(I) then
Combobox1.Items.Add(Chr(I + Ord('A')) + ':');
end;
Nochmals vielen vielen Dank an alle. Ihr seid echt eine tolle Community. Ihr habt mein Problem in gerade mal 39 Minuten gelöst. DANKE!