• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Keygen yapalım

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
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 ders ile ilgili sorularınızı yorum panelinde veya forumda yazabilirsiniz.
 
Üst