IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  reklamver

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Şubat 2009, 20:02   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Delphi kilit kodu




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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


__________________
insan ölür eseri kalır.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Cevapla

Etiketler
delphi, kilit, kodu


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
ban kilit kodu bilen varmı? Leo mIRC Scripting Sorunları 14 22 Eylül 2019 16:29
Delphi Herzaman üstte Kodu Kaf_Dağı Delphi 0 18 Mart 2015 14:38
Hazir Kodu Sound kodu Lazim Pandorum mIRC Scripting Sorunları 2 22 Ekim 2010 12:00
selam status ekranına saat kodu koydum O Kodu NASIL SİLECEM ??? Y ofofyaRim mIRC Scripting Sorunları 5 31 Ağustos 2009 23:42