[DELPHI] USUÁRIO LOGADO NO WINDOWS

procedure TForm1.Button1Click(Sender: TObject); 

var

  _User: array [0 .. 144] of char;

  BufferSize: DWORD;

  _UserName: string;

begin

  BufferSize := SizeOf(_User);

  GetUserName(_User, BufferSize);

  _UserName := trim(StrPas(_User));

  ShowMessage(_UserName);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】