Responsive Reklam Alanı

Delphi-ile-Keygen-Yapımı_emresupcinMerhaba arkadaşlar,

 

3 gündür dersleri biraz boşladık bu yüzden 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 kez tıklayıp şu kodu ekleyin:

 

 

1  var
2  x, y, x2, y2 : integer;
3  begin
4  x := Random(100000);
5  x2 := Random(100000);
6  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 sadece okunmasını istiyorsak da Edit’e tıklayıp, ReadOnly kısmını true yapmalıyızRandom kısmındaki rakamın sıfırları Edit’deki rakamlara eşitdir. O yüzden sıfırları çoğalta ve azalta bilirsiniz.

Paylaşmak Güzeldir
Yazar
Yazar
E-Ticaret Nedir? Kavramını Tam Olarak Biliyor musunuz? ASP'de Gelişmiş IsNull Fonksiyonu Nasıldır?
Bir yorum yazın
Siz de düşüncenizi belirtebilirsiniz.

Web Tasarım Blog Teması ES | Tüm hakları © Emre Supçin'e aittir.