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:
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.
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:
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.