Obtendo o nome do usuário e a empresa do Windows

Obtendo o nome do usuário e a empresa do Windows

Para Obter o nome do usuário e a empresa em que Windows esta registrado, siga os procedimentos abaixo:

1-Insira Registry em Uses:
Uses Registry;

2-Insira no Form, 2 Edit’s e um Botão.
Programe o evento click do botão com o seguinte código abaixo:

Procedure TForm1.Button1Click(Sender: TObject);;
var
reg: TRegIniFile;
begin
reg := TRegIniFile.create(‘SOFTWARE\MICROSOFT\MS SETUP (ACME)\’);
Edit1.Text := reg.ReadString(‘USER INFO’,’DefName’,”);
Edit2.Text := reg.ReadString(‘USER INFO’,’DefCompany’,”);
reg.free;
end;