Получить информацию о регистрации Windows – имя владельца и компаниюDelphi , ОС и Железо , WindowsПолучить информацию о регистрации Windows – имя владельца и компанию
Оформил: DeeCo 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; Статья Получить информацию о регистрации Windows – имя владельца и компанию раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |