Pegando o Nome do usuário e a Empresa do Windows

[rasorfist 0]

Coloque na Uses: Registry;

Crie a procedure :

Procedure GetUserCompany;

aperte Shift+ctrl+"c"

e ponha este codigo:

 

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;