+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : البرمجة بلغة باسكال و الدلفي - Pascal & Delphi (https://www.at4re.net/f/forum-18.html)
+--- الموضوع : SRC_Delphi_VB.N3t to C# C0nv3rter 5.07_P@tch (/thread-1072.html)
SRC_Delphi_VB.N3t to C# C0nv3rter 5.07_P@tch - TeRcO - 21-08-2019
السلام عليكم ورحمة الله
سورس كود بسيط لـ: Registry Patch
للبرنامج: VB.Net to C# Converter 5.07
رابط البرنامج:
https://vbconversions.com/
مع تحيات أخوكم خالد TeRcO
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;