Code:

uses

  Registry;

 

 

procedure GetOwnerAndCompanyName(var sOwner, sOrganization: string);

var

  reg: TRegistry;

  vi: TOSVersionInfo;

  sWindows: string;

begin

  reg      := TRegistry.Create;

  sWindows := '\Windows\';

  try

    vi.dwOSVersionInfoSize := SizeOf(vi);

    getversionex(vi);

    reg.RootKey := HKEY_LOCAL_MACHINE;

    if (vi.dwPlatformId = VER_PLATFORM_WIN32_NT) then sWindows := '\Windows NT\';

    if reg.OpenKey('Software\Microsoft' + sWindows + 'CurrentVersion', False) then

    begin

      // Name

     sOwner := reg.ReadString('RegisteredOwner');

      // Organization

     sOrganization := reg.ReadString('RegisteredOrganization');

    end;

  finally

    reg.Free;

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  sOwner, sOrganization: string;

begin

  GetOwnerAndCompanyName(sOwner, sOrganization);

  Edit1.Text := sOwner;

  Edit2.Text := sOrganization;

end;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!