Programin güvenligi ile ilgili örnek

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;