programı şifre genelinde kapama

[uince]

programımı kapatırken sorgulamalı olarak kapatıyorum.Bunun başına birde şifre sorgulaması eklemek için ne yapmalıyım?

Örneğin kapatırken şifre 123 ise programdan çıkacak değilse devam edecek

if MessageDlg('Program Kapatılsınmı?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;

Şimdiden teşekkürler...

[ALUCARD]

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
sifre:string ;
begin
sifre:='1234' ;
if MessageDlg('Program Kapatılsınmı?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
begin
sifre:=InputBox('Şifreyi Giriniz','Şifre','');
if sifre='1234' then

Action := caFree
else
Action := caNone;
end
 else
begin
 Action := caNone;
end
end;

denedim çalışıyor

[selman]

s.a

Kod: Tümünü seç

if MessageDlg('Program Kapatılsınmı?', mtConfirmation, 
[mbYes, mbNo], 0) = mrYes then 
   cikis_form.show;
end;

burdan cıkıs_formunda
lütfen şifreyi giriniz diye yazarsınız.orda
if sifre.text='123' then begin
anamenu.close;
end
else
if sifre.text<>'123' then begin
showmessage('Nereye Proğramdan Çıkamassınız');
end;
gibi yapabilirsiniz.

[uince]

Maalesef şifre devreye girmiyor....

[ALUCARD]

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
sifre:string ;
begin
if MessageDlg('Program Kapatılsınmı?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
begin
sifre:=InputBox('Şifreyi Giriniz','Şifre','');
if sifre='1234' then

Action := caFree
else
Action := caNone;
end
 else
begin
 Action := caNone;
end
end;

hocam şimdi bi daha dene

inputbox koymayı unutmuşum şimdi düzelttim
artık gerini kendin yaparsın zaten

[ALUCARD]

sonkez senin heryere kontrol koydum

bu seferde olmadı deme şansın yok

burda kullanıcı adını vt den bile kontrol edebilirsin

gerisi senin hayal gücüne kalmış

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
sifre:string ;
begin
if MessageDlg('Program Kapatılsınmı?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
    begin
    sifre:=InputBox('Şifreyi Giriniz','Şifre','');
    if sifre='1234' then
        begin
        showmessage('Şifre Doğru Programdan Çıkabilirsiniz');
        Action := caFree
       end
    else
       begin
       showmessage('Şifre Hatalı Programdan Çıkamassınız.');
       Action := caNone;
       end
   end
else
    begin
    Action := caNone;
    end
end;

[uince]

şimdi oldu teşekkürler..

peki açılan şifre sorgu ekranına girilen şifrenin ****** şeklinde olması için ne yapabiliriz?

[ALUCARD]

o zaman ordaki inputbox yerine kendin bi form tasarlayıp
ordan sorulatabilirsin

o zaman editim passwordchar özelliği ile ayarlayabilirsin

ama inputboxla olmaz bildiğim kadarı ile

ama yinede bir bakayım ben

[hgunes]

Merhaba,

InputBox'ta passwordchar kullanılabiliyor, buradan bakabilirsiniz

http://www.swissdelphicenter.ch/en/showcode.php?id=1208