Получить информацию о регистрации 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 – имя владельца и компанию Дата публикации: 2004-06-16 (2825 Прочтено) |