Советы по Delphi


              

Как получить имя пользователя и название компании, на которых зарегистрирована Windows?


Олег Кулабухов отвечает:

Вся эта информация запрятана в реестре 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]



Содержание  Назад  Вперед