بعضی برنامه ها فقط یکبار اجرا می شن ، یعنی چی ؟؟؟ یعنی اینکه اگه شما یه اون برنامه رو اجرا کنید اون برنامه دیگه اجرا نمی شه (تکراری) تا برنامه ای که باز شده بسته بشه ، مثلا نمونه بارزش Windows Media Player که در آن واحد دوبار اجرا نمی شه .

این کار رو به سادگی می تونیم تو دلفی انجام بدیم ، این بار دیگه با یونیت Project مون کار داریم .

 یه دستور If که دستورهای ساختن فرمهای برنامه تون تو اون قرار داره و خود شرطمون چک می کنه که اگه همین برنامه قبلا اجرا شده اجازه ساخته شدن مجدد Application و فرمها رو نمی ده.

البته Createmutex در یونیت Windows تعریف شده که لازمه دسترسی به اون رو در قسمت Uses ها ایجاد کنیم.

Var

 hm : THandle;

Begin

 hm:=Createmutex(Nil,False,'OneCopyMutex');

 If WaitForSingleObject(hm,0)<>Wait_TimeOut Then

 Begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

 End;