Delphi dicas

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

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;

por : Fabricio Silva Da Rocha