Delphi Delphi form açılışına şifre koymak

Kim-Jong

Onursal
Onursal
Katılım
18 May 2015
Mesajlar
1,226
Tepkime puanı
0
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;
 
Üst