|
|
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  | Katılımcı : 3 | | Okunma | : 7775 | | | | | |
| |
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. |
|
