Delphi Programını Kullanarak Keygen Yapımı?

Delphi Programını Kullanarak Keygen Yapımı? Merhaba arkadaşlar, üç gündür derslerimizi biraz boşladık bu nedenden sizlere basit bir delphi dersi anlatacağım konumuz ise Delphi programını kullanarak nasıl keygen yapabiliriz. Öncelikle bir TButton ve bir TEdit belirtin. Butonun adını “Değiştir” koyun. Şimdi butona iki kere tıklayıp şu kodu ekleyin: 1 mevcut 2 x, y, x2, y2 : integer; üç begin 4 x := Random(100000); 5 x2 := Random(100000); altı y := Random(100000); 7 y2 := Random(100000); 8 9 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 yalnızca 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 sebepten dolayı sıfırları çoğalta ve azalta bilirsiniz.

Etiketler

Yorum yapmak için lütfen giriş yapınız

Yorumlar