نسخة واحدة بس!!

Function: AppIsRunning

الغرض
منع تشغيل نسختين من البرنامج في نفس الوقت.

الصيغة

function AppIsRunning(UMsg: string = ''; UTitle: string = ''; URtl: Boolean = True): BOOL;

الوسائط (Parameters)

الشرح
لاحظ أن البارامترات الثلاثة اختيارية، أي يمكن استدعاء الدالة دون بارامترات.
أحياناً تريد - و ربما يجب - أن لا توجد نسختان من البرنامج تعملان في نفس الوقت على نفس الحاسوب، خاصة في البرامج التي تتعامل مع ملفات محددة كما هو الحال في برامج قواعد البيانات. إن استدعاء هذه الدالة - كما سنبين أدناه - يعمل على منع ذلك الأمر.
بما أن البارامترات اختيارية فإن إهمالها أو تمرير قيمها الافتراضية يجعل الدالة تستعمل القيم الافتراضية كالتالي:

طريفة الاستدعاء:

• أضف اسم الوحدة البرمجية DNSDGen إلى عبارة uses الموجودة في الملف الرئيسي للمشروع (dpr).
• اجعل كل الشفرة الواردة في كتلة begin..end. محصورة ضمن استدعاء الدالة.

program Project1;

uses
  Forms,
  DNSDGen,
  Unit1 in 'Unit1.pas' {Form1};
  // .
  // .
  // .

{$R *.res}

begin
  if not AppIsRunning then begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    // .
    // .
    // .
    Application.Run;
  end;
end.

 أعلى الصفحة