Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Keygen yapalım

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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 Alt