Get the name of the current Windows user.
1 2 3 4 5 6 |
var nm: string; begin nm:= GetCurUserName(); ShowMessage(nm); end; |
Options
Not
Result
Username or empty string if unsuccessful.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function GetCurUserName: string; var sUserName: string; dwUserNameLen: DWORD; nameLen: Integer; begin try nameLen:= 254; dwUserNameLen := nameLen - 1; SetLength(sUserName, nameLen); GetUserName(PChar(sUserName), dwUserNameLen); SetLength(sUserName, dwUserNameLen); Result := sUserName; except Result := ''; end; end; |