윈도우 사용자 이름 알아내기

윈도우 사용자 이름 알아내기

 

728x90

 

 

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;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(GetCurrentUserName);

end;