Hab mein Beitrag nochma editiert. Der Fehler kommt:
. erwartet aber ; gefunden..
Das Programm geht ja noch weiter ich kann da kein end. hinsetzen...
Hier nochma der Code
Delphi-Quellcode:
....
....
if Length(Drives) > 0 then
for Idx := Low(Drives) to High(Drives) do
WriteLn(Drives[Idx]);
end;
//
////Get System Directory Function
function GetSysDir: String;
var
Dir : array [0..MAX_PATH+1] of Char;
begin