Problem beim auslesen des Aktuellen Benutzers

[pikman]

Alles klar,

hab es geschaft. Poste mal den Code false jemand auch so nen Prob hat.

Danke Svobi1975, der Tipp war gold richtig.
Danke natürlich auch an alle anderen.

Delphi-Quellcode:

function TForm1.SetTheRightUserProfile : boolean;
var
   bufferProfilePath: Array[0..1024] of Char;
   strTmp : String;
begin
   if Windows.GetEnvironmentVariable('ALLUSERSPROFILE', bufferProfilePath, sizeof(bufferProfilePath)) <> 0 then begin
      strTmp := bufferProfilePath;
      strTmp := AnsiReplaceStr(strTmp, 'All Users', GetUserName());

      if Windows.SetEnvironmentVariable('USERPROFILE', PCHAR(strTmp)) then begin
         RESULT := TRUE;
      end else begin
         RESULT := FALSE;
      end;
   end else begin
      RESULT := FALSE;
   end;
end;