fbpx

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;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.