Windows - obter o nome do usuario e empresa

Top  Previous  Next

Uses Registry; 

 

Procedure GetUserCompany; 

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