Получить информацию о регистрации 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com