آخرين پست هاي ارسالي انجمن ايران دلفي

تماشای رایگان فیلم ایرانی ، خارجی و کودک آکادمی دلفی
نمایش نتایج: از 1 به 2 از 2

موضوع: اجرا نشدن دوباره برنامه

  1. #1
    کاربر سایت beny آواتار ها
    تاریخ عضویت
    November 2013
    سن
    7
    نوشته ها
    41
    تشکر ها
    44
    تشکر شده 5 بار در 5 ارسال.

    اجرا نشدن دوباره برنامه

    با سلام و احترام

    میخوام کدی باشه که اگه برنامه اجرا باشه یعنی تو حافظه باشه دوباره اجرا نشه پیغام بده . اگه ممکنه راهنماییم کنید.

    ممنون

  2. #2
    مدیر انجمن meyti آواتار ها
    تاریخ عضویت
    August 2013
    نوشته ها
    143
    تشکر ها
    134
    تشکر شده 78 بار در 55 ارسال.

    پاسخ : اجرا نشدن دوباره برنامه

    از این کد استفاده کن :

    کد:
    var
      Form1: TForm1;
      handle_temp:THandle;
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
        handle_temp:=CreateMutex(nil,TRUE,'project');
    
        If handle_temp<>0 then
    
        If GetLastError=ERROR_ALREADY_EXISTS then
    
        begin
    
        Application.MessageBox('This program is runing','Error!',mb_ok);
    
        Application.Terminate;
    
        end;
    
    end;

  3. کاربر مقابل از meyti عزیز به خاطر این پست مفید تشکر کرده است:

    beny (31 / January / 2017)

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •