Получить информацию о регистрации Windows – имя владельца и компанию

Советы » Windows » Получить информацию о регистрации Windows – имя владельца и компанию

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('SoftwareMicrosoft' + 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
;

Получить информацию о регистрации Windows – имя владельца и компанию

Другое по теме:

Категории

Статьи

Советы