Einzelnen Beitrag anzeigen

pmoegenb

Registriert seit: 24. Aug 2006
Ort: Aidlingen
155 Beiträge
 
Delphi XE6 Professional
 
#8

AW: String ist nicht ereiterbar!!

  Alt 8. Dez 2010, 18:21
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;
Peter Mögenburg
Gruß

Peter
  Mit Zitat antworten Zitat