الفريق العربي للهندسة العكسية

uses Registry;{ Add Registry to:uses}

procedure TForm1.btn1Click(Sender: TObject);
var reg: TRegistry;
begin
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_CURRENT_USER;
reg.OpenKey('Software\VB and VBA Program Settings\vbtocs\Settings', true);
reg.WriteString('3','True'); {True= professional / False= Free}
reg.WriteString('31', edt1.Text); {edt1.Text=Registered to:"NAME"}
reg.WriteString('32', edt2.Text); {edt2.Text=Registered to:"Company"}
finally
reg.Free
end;
showmessage('Congratulations'#13#10+'Software Patched');
end;