Wednesday, March 2, 2011

How to get current user name

How to get current user name

BOOL GetUserName(
  // address of name buffer
  LPTSTR lpBuffer,
  // address of size of name buffer
  LPDWORD nSize
  );
You can retrieve the current user name by calling the above Win32 API function. "GetCurrentUserName" function is a wraparound to simplify calling "GetUserName()" in Delphi:
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 

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum