Programa Güvenlik Klidi Koymak
| ||||
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;
Alıntıdır.
Etiketler : programa güvenlik kilidi, güvenlik kilidi, yazılım koruma , yazılım güvenliği , program güvenliği, lisans uygulaması, delphi ile yazılım lisansı, delphi ile program lisansı
Benzer Yazılar:
- ASCII Kodlarını Bulmak
- Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
- Ağ daki Bilgisayarlara Ping Atmak
- Delphi ile Mp3 dosya çalmak çaldırmak
- Formun Başlığına Kayan Yazı Ekleyen Kod
- Yazılan Fiyatı Metine Çevirmek
- Bilgisayarın IP adresini almak
- Tüm Dosya ve Klasörlerin Listesini Almak
- Ekran Klavyesi
- Dosya Uzantısından Programın Tespiti
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...