Merheba arkadaşlar,-
Bu Delphi dersimizde bir Keygen yapmayı öğreneceğiz. -
Öncelikle bir -TButton- ve bir -TEdit- belirtin. Butonun adını "Değiştir" koyun. Şimdi butona iki kez tıklayıp şu kodu ekleyin:-
-Şimdi -Run- butonuna basın ve programı çalıştırın. "Değiştir" butonuna tıklandıkda Edit'deki rakamlar değişiyor. Yazının sadece okunmasını istiyorsak da Edit'e tıklayıp, -ReadOnly-kısmını -true yapmalıyız-. -Random- kısmındaki rakamın sıfırları Edit'deki rakamlara eşitdir. O yüzden sıfırları çoğalta ve azalta bilirsiniz.--
Bu Delphi dersimizde bir Keygen yapmayı öğreneceğiz. -
Öncelikle bir -TButton- ve bir -TEdit- belirtin. Butonun adını "Değiştir" koyun. Şimdi butona iki kez tıklayıp şu kodu ekleyin:-
Kod:
var
x, y, x2, y2 : integer;
begin
x := Random(100000);
x2 := Random(100000);
y := Random(100000);
y2 := Random(100000);
Edit1.Text := IntToStr(x)+ '-' + IntToStr(x2)+ '-' + IntToStr(y)+ '-' + IntToStr(y2)-Şimdi -Run- butonuna basın ve programı çalıştırın. "Değiştir" butonuna tıklandıkda Edit'deki rakamlar değişiyor. Yazının sadece okunmasını istiyorsak da Edit'e tıklayıp, -ReadOnly-kısmını -true yapmalıyız-. -Random- kısmındaki rakamın sıfırları Edit'deki rakamlara eşitdir. O yüzden sıfırları çoğalta ve azalta bilirsiniz.--