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

Delphi , ОС и Железо , Windows

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Программа на Delphi, которая извлекает информацию о регистрации Windows, в частности, имя владельца и компанию.

Вот разбивка кода:

Процедура GetOwnerAndCompanyName 1. Создает объект TRegistry для взаимодействия с реестром Windows. 2. Устанавливает корневой ключ на HKEY_LOCAL_MACHINE. 3. Проверяет, является ли операционной системой Windows NT (32-бита) или позднее, и adjusts путь в реестре соответственно. 4. Открывает регистрационный ключ "Software\Microsoft\\CurrentVersion". 5. Читает значения "RegisteredOwner" и "RegisteredOrganization" из регистрационного ключа. 6. Возвращает имя владельца и компанию как строки.

Процедура Button1Click 1. Вызывает процедуру GetOwnerAndCompanyName для извлечения имени владельца и компании. 2. Устанавливает текст двух редактируемых полей (Edit1 и Edit2) с полученной информацией.

Программа использует модуль Registry для взаимодействия с реестром Windows, который является иерархическим базой данных, хранящей настройки конфигурации операционной системы и приложений.

Вот некоторые предложения:

• Вместо использования блоков try-finally, рассмотрите возможность использования контекстного менеджера или подхода RAII (Resource Acquisition Is Initialization) для обеспечения того, что объект реестра будет правильно очищен после использования.
• Можете добавить обработку ошибок для случаев, когда регистрационный ключ не существует или не может быть открыт.
• Программа предполагает, что версия Windows 32-бита. Если вам нужно поддерживать 64-битные версии, вам придется adjust путь в реестре соответственно.

В целом, это простая и прямая программа, которая демонстрирует, как извлечь информацию о регистрации Windows с помощью Delphi.

Показано, как получить информацию о регистрации Windows, включая имя владельца и компанию, используя язык программирования Delphi и функцию getversionex.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::