Es kann mit all den genannten Stichworten doch nicht so schwer zu sein, sich ein bisschen damit zu befassen oder
Wir haben alle mal angefangen...
Delphi-Quellcode:
var
Drive: Char;
Drives: array of string;
Idx: Integer;
begin
SetLength(Drives, 0);
Idx := 0;
for Drive := 'A' to 'Z' do
begin
if GetDriveType(PChar(Drive + ':/')) = DRIVE_FIXED then
begin
SetLength(Drives, Idx + 1);
Drives[Idx] := Drive + ':\';
Idx := Idx + 1;
end;
end;
if Length(Drives) > 0 then
for Idx := Low(Drives) to High(Drives) do
WriteLn(Drives[Idx]);
end;
...
...