usesRegistry; 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
;