Buscar por:

Pegando o usuario do pc e o nome do pc (nt,xp)

Código

No evendo formactive coloque este procedimento!!!!

procedure Tfrmprincipal.FormActivate(Sender: TObject);

var

  buffer : array[0..255] of char;

  size : dword;

  UserName: String;

  ComputerName: String;

    begin

      size := 256;

      GetUserName(buffer, size);

      UserName := buffer;

      size := MAX_COMPUTERNAME_LENGTH + 1;

      GetComputerName(buffer, size);

      ComputerName := buffer;

      StatusBar1.Panels[3].Text:= 'Usuário do PC: ' + UserName ;

      StatusBar1.Panels[4].Text:= 'Nome do PC: '+ComputerName;

    end;            

procedure Tfrmprincipal.Sair1Click(Sender: TObject);

begin

 if MessageDlg('Deseja encerrar o sistema?',

          mtConfirmation, [mbYes, mbNo], 0) = mrYes then

          Application.Terminate;

end;