Retrouver les informations de licence Windows

uses
Registry;

{...}

procedure GetOwnerAndCompanyName( var sOwner, sOrganization : string);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_LOCAL_MACHINE;
if reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersion', false) then
begin
// Name
sOwner := reg.ReadString('RegisteredOwner');
// Organization
sOrganization := reg.ReadString('RegisteredOrganization');
end;
if sOwner = '' then
begin
reg.CloseKey;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('SoftwareMicrosoftWindows NTCurrentVersion', false) then
begin
// Name
sOwner := reg.ReadString('RegisteredOwner');
// Organization
sOrganization := reg.ReadString('RegisteredOrganization');
end;
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;