طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات

طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات (/showthread.php?tid=6515)

طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات - hadi91 - 26-10-2014

سلام عليكم

ما هي طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات
مثال: اذا ادخلت 3 مرات الكود او اسم المستخدم ينغلق البرنامج

طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات - ALmuhhnad - 26-10-2014

كمثال بسيط اضف عداد في الـ TForm وليكن FTryCount وعند محاولة إدخال كود يتم زيادة هذا العداد بالامر Inc

مثال تطبيقي :

PHP كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btnRegistration: TButton;
    procedure btnRegistrationClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FTryCount: Byte;// Byte is 0..255
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnRegistrationClick(Sender: TObject);
begin
  if Key = MyOriginalKey then // right key
  begin

  end
  else // wrong key
  begin
    Inc(FTryCount);
    if FTryCount = 3 then Application.Terminate; // check if the user try three times then close then application
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTryCount := 0; // set FTryCount to 0
end;

end. 

طبعاً مثل هذه الخدعه تعتبر دعابة عند الكراكرز :p

طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات - hadi91 - 27-10-2014

اهلا اخي لم افهم جيدا المثال هذا هو الكود سورس الذي استعمل

كود :
procedure TForm1.Boutton1Click(Sender: TObject);
     begin
if ((edit1.text='farid') and(edit2.text='ts')) or ((edit1.text='hssen') and(edit2.text='t')) or ((edit1.text='foudi') and(edit2.text='tss'))
then
begin
form2.show;
form1.Hide  ; end

else

showmessage('erreur mot de passe')


 end ;

طريقة اغلاق البرنامج (او القيام بأي إجراء ) بعد عدد من المحاولات - bassem_43 - 27-10-2014

hadi91 كتب :اهلا اخي لم افهم جيدا المثال هذا هو الكود سورس الذي استعمل
كود :
procedure TForm1.Boutton1Click(Sender: TObject); begin if ((edit1.text='farid') and(edit2.text='ts')) or ((edit1.text='hssen') and(edit2.text='t')) or ((edit1.text='foudi') and(edit2.text='tss')) then begin form2.show; form1.Hide ; end else showmessage('erreur mot de passe') end ;

السلام عليكم
بتطبيق ما قاله الاخ ALmuhhnad على مثالك يصبح هكدا

كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btnRegistration: TButton;
    procedure btnRegistrationClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FTryCount: Byte;// Byte is 0..255
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnRegistrationClick(Sender: TObject);
begin
if ((edit1.text='farid') and(edit2.text='ts')) or ((edit1.text='hssen') and(edit2.text='t')) or ((edit1.text='foudi') and(edit2.text='tss'))
then
begin
form2.show;
form1.Hide  ; 
end

 
  else // wrong key
 
 begin
showmessage('erreur mot de passe') ;
    Inc(FTryCount);
    if FTryCount = 3 then Application.Terminate; // check if the user try three times then close then application
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTryCount := 0; // set FTryCount to 0
end;

end.