Delphi: Form Açılışını Şifreleme - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphi: Form Açılışını Şifreleme
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2008-12-07
Puan: 6   Puan:6 | Katılımcı:2 | Katılımcı : 2
Okunma: 5098
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

Delphide form girişini şifrelemek için aşağıdaki kodları formunuzun oncreate olayına yapıştırınız. Aşağıdaki kodlamalarda form açılış sırasında input box ile size şifre sorulacaktır. Girmiş olduğunuz şifre form içerisinde değişkene atadığınız şifre ile aynı ise girişinizin onaylandığını belirten mesajı göreceksiniz. Aynı değil ise giriş için tekrar şifre isteyecektir.

// Formun oncreate olayına yazınız...
procedure TForm1.FormCreate(Sender: TObject);
var
x,sifre:string;
begin
sifre:=sifrenizi yazınız´;
x:=inputbox(´Şifreli Giriş´,Lütfen Şifrenizi Giriniz:´,´´);
if x=b then
application.messagebox(´Programa Girişiniz Onaylandı.Tebrikler ..!´,´Tebrikler´,mb_ok+mb_defbutton1)
else
halt;
end;
end.





Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.