izmir escort escort izmir porno porno izle
DELPHI / Güvenlik Kiliti - IRCForumları - IRC ve mIRC Yardım ve Destek Platformu
User Tag List

Standart DELPHI / Güvenlik Kiliti #1
Üyelik Tarihi: 22 Kasım 2014
Mesajlar: 13
Aldığı Beğeni: 0
Beğendikleri: 0
29 Ocak 2015 , 12:18
Alıntı ile Cevapla
HTML-Kodu:
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=";
hata:=0;
assignfile(dsy,'c:\basri.dat');
{$i-}reset(dsy);{$i+}
if ioresult<>0 then rewrite(dsy);
for i:=0 to filesize(dsy)-1 do begin
seek(dsy,i);read(dsy,a);
if a.kilit='*'then begin
showmessage('kilitli');
halt;
end;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then begin
sifre:='basri';
if edit1.Text<>sifre then begin
hata:=hata+1;
edit1.Text:=";
end
else if edit1.Text=sifre then begin
form2.Show;
end;
if hata>=3 then begin
a.kilit:='*';
seek(dsy,filesize(dsy));write(dsy,a);
halt;
end;
end;
end;


« Önceki Konu Sonraki Konu »

Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)