How to get current user name
BOOL GetUserName( // address of name buffer LPTSTR lpBuffer, // address of size of name buffer LPDWORD nSize ); |
function GetCurrentUserName : string; const cnMaxUserNameLen = 254; var sUserName : string; dwUserNameLen : DWord; begin dwUserNameLen := cnMaxUserNameLen-1; SetLength( sUserName, cnMaxUserNameLen ); GetUserName( PChar( sUserName ), dwUserNameLen ); SetLength( sUserName, dwUserNameLen ); Result := sUserName; end;
Source : http://www.chami.com/tips/delphi/011197D.html