Nicht belegte Laufwerksbuchstaben als Pulldown- Menü

[hagen28]

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!