program acılısına şifre koymak biraz deişik

[notname]

S.a

Programın acılısına şifre koymak istiyorum ama biraz farklı.
forma bir tane edit component koyup edit e mesela 12345 yazdım bununda editin visible'sine true yaptım
program acıldıgı zaman bu edit in içeriğini okusun ve karsıma yeni bir form daha cıkarsın
bu formda şifre yeri var oraya şifreyi yazdığım zaman ana form daki edit in içeriğini okusun karsılastırsın yani ve editin içeriği ile yazılan şifre doğru ise program acılsın yanlış ise acılmasın.

[fduman]

Biraz uğraşarak yapabilirsin. Takıldığın yerde söyle.

[notname]

selam arkadaşım
sorunda bu zaten ne yapıcagımı bilmiyorum aklım baya bi karısık bi ornek olsa guzel olurdu.

[fduman]

Tamam sen yaptığın kadarını gönder. Düzeltmeleri beraber yapalım.

[aslangeri]

s.a.
arkadaş zaten olayı halletmiş ancak farkında değil.
ne yapacağını planlamışsın. iş onu koda dökmekte. en baştan başla.
kolay gelsin.

[notname]

napıcagımı coktan planladım ama koda dokmesi bay bi kastı sorunda o olsa gerek

[fduman]

Adım adım giderek uygula o halde. Önce bir form tasarla. OK basınca başka bir formu açsın. Cancel'a basınca program kapansın.

[notname]

bi denicem evde takıldıgım yer olursa burdan sorarım.

[notname]

arkadaşlar su sekil bi kod yaptım ama bi sorunum var

Kod: Tümünü seç

var
a,b:string;
  begin
b:=edit3.text;
a:=inputbox('program şifre koruması','program''a girmek için şifreyi Giriniz:','');
if a=b then
application.messagebox('program''a Girişiniz Onaylandı','Giriş onaylandı',mb_ok+mb_defbutton1)
else
application.messagebox('program''a Girişiniz Onaylanmadı','Şifre yanlış');
halt;
end;

arkadaşlar bu şekil yapıyorum şifre dogru olsada olmasada formu kapatıyo nerde yanlıs yapıyorum.

[notname]

tamam arkadaşlar yaptım gerek kalmadı herkese tesekkurler sorunumun cevabı

Kod: Tümünü seç

var 
a,b:string; 
  begin 
b:=edit3.text; 
a:=inputbox('program şifre koruması','program''a girmek için şifreyi Giriniz:',''); 
if a=b then 
application.messagebox('program''a Girişiniz Onaylandı','Giriş onaylandı',mb_ok+mb_defbutton1) 
else 
begin
application.messagebox('program''a Girişiniz Onaylanmadı','Şifre yanlış'); 
halt;
end;

[fduman]

Azmin elinden ne kurtulmuş ki.

Halt yerine Application.Terminate; kullanmanı tavsiye ederim. Kolay gelsin.

[osman_simsek]

konuyla pek alakalı deil ama, sorayım istedim, ben de genellikle halt; kullanıyorum,
application.terminate; ile arasındaki fark nedir, neden application.terminate kullanılmalı.

[notname]

selam sanırm halt: programın duzgun kapanmasını bozuyo application.termnate kllan en iyisi

[fduman]

Halt kullanımında nesnelerin ayırdığı bellek bölgesi geri verilemeyebilir. Application.Terminate uygulamayı kapanacağı hakkında bilgilendirir ve uygulama gerekli Free methodlarını işletir.