Delphi-Quellcode:
function GetWinDir: string;
var
dir: array [0..MAX_PATH] of WideChar;
begin
GetWindowsDirectoryW(dir, MAX_PATH);
Result := StrPas(dir);
end;
Das war meine... strange das ganze aber nun fruchtet es, ganz herzlichen Dank nochmal für Deine tatkräftige Unterstützung!