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;
