Danke, das hilft. Teste ich morgen früh gleich mal.
Ich hätte es mit der StringList so gelöst:
Delphi-Quellcode:
sl := TStringlist.Create;
try
sl.Delimiter := ';';
sl.StrictDelimiter := True;
sl.DelimitedText := GetEnvironmentVariable('Path');
for I := 0 to sl.Count -1 do
begin
//Pfad prüfen
end;
finally
sl.clear;
FreeAndNIL(SL);
end;