Registriert seit: 24. Aug 2006
Ort: Aidlingen
155 Beiträge
Delphi XE6 Professional
|
AW: String ist nicht ereiterbar!!
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
|