Ich weiss nicht ob du das getestet hast aber bei mir kommt folgender Fehler:
Delphi-Quellcode:
..
....
.....
if Length(Drives) > 0 then
for Idx := Low(Drives) to High(Drives) do
WriteLn(Drives[Idx]);
end;
var blabla
. erwartet aber ; gefunden.. :/
...das Programm darf an dieser Stelle nich zuende sein =)