Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi form açılışına şifre koymak
#1
Kod:
var
yazi:String;
i:integer;
Begin
i:=0;
Repeat
yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz','');
if yazi<>'123456789' then
i:=i+1;
if i=3 then begin
showmessage('3 kez hatalı şifre girdiniz program kapatılıyor');
Halt;
end;
until yazi='123456789';
form2.show;
end;


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de 100'den 0'a Geri Sayım Kim-Jong 0 218 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong
  Delphİ Hesap Makinesi Programı (Kodları) Kim-Jong 0 171 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong
  Delphi Dosya Silme Kodu Kim-Jong 0 181 09-07-2015, Saat: 09:32
Son Yorum: Kim-Jong

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM