Олег Кулабухов отвечает:
Вся эта информация запрятана в реестре Windows, соответственно нужно ее только достать оттуда, что и делает нижеприведенный пример.
uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegIniFile; begin reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\'); Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefName', 'Frank Borland')); Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefCompany', 'A Valued Borland Customer')); reg.free; end; |
[001931]