String ist nicht ereiterbar!!

[pmoegenb]

Oder so:

Delphi-Quellcode:

function GetUserID: string;
var
   szUserName : array[0..99] of Char;
   dwSize     : DWORD;
begin
     FillChar(szUserName, SizeOf(szUserName), 0);
     dwSize := SizeOf(szUserName);
     GetUserName(szUserName, dwSize);
     Result := UPPERCASE(szUserName);
end;