نمایش نتایج 1 تا 8 از 8

نام تاپیک: جلوگیری از اجرای همزمان یک برنامه

  1. #1
    کاربر دائمی آواتار SReza1
    تاریخ عضویت
    تیر 1382
    محل زندگی
    کنار تعدادی تراریوم و کاکتوس!
    پست
    702

    جلوگیری از اجرای همزمان یک برنامه

    سلام
    میخواستم بدونم چطور میشه از اجرای یک برنامه چند بار روی یک کامپیوتر جلوگیری کرد؟
    احتمالا باید از خواندن و نوشتن در حافظه استفاده کرد! منو راهنمایی کنید




  2. #2
    بنیان گذار Barnamenevis آواتار مهدی کرامتی
    تاریخ عضویت
    اسفند 1381
    محل زندگی
    کرج، گلشهر
    سن
    45
    پست
    6,361
    خوب معلومه که باید از نوشتن در حافظه استفاده کرد!!!
    برای انجام اینکار از Mutex ها استفاده میکنیم:

    کد برای استفاده در سورس پروژه:
    {The code for ONEINSTANCE.dpr}

    program ONEINSTANCE;

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

    {$R *.RES}

    begin
    {Attempt to create a named mutex}
    CreateMutex(nil, false, 'MyApp');
    {if it failed then there is another INSTANCE}
    if GetLastError = ERROR_ALREADY_EXISTS then begin
    {Send all windows our custom message - only our other}
    {INSTANCE will recognise it, and restore itself}
    SendMessage(HWND_BROADCAST,
    RegisterWindowMessage('MyApp'),
    0,
    0);
    {Lets quit}
    Halt(0);
    end;
    Application.Initialize;
    {Tell Delphi to un-hide it's hidden application window}
    {This allows our INSTANCE to have a icon on the task bar}
    Application.ShowMainForm := true;
    ShowWindow(Application.Handle, SW_RESTORE);
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    end.


    کد برای استفاده در Unit1.pas:
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls,
    Forms, Dialogs;

    type
    TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.DFM}

    var
    OldWindowProc : Pointer; {Variable for the old windows proc}
    MyMsg : DWord; {custom systemwide message}

    function NewWindowProc(WindowHandle : hWnd;
    TheMessage : LongInt;
    ParamW : LongInt;
    ParamL : LongInt) : LongInt stdcall;
    begin
    if TheMessage = MyMsg then begin
    {Tell the application to restore, let it restore the form}
    SendMessage(Application.handle, WM_SYSCOMMAND, SC_RESTORE, 0);
    SetForegroundWindow(Application.Handle);
    {We handled the message - we are dONE}
    Result := 0;
    exit;
    end;
    {Call the original winproc}
    Result := CallWindowProc(OldWindowProc,
    WindowHandle,
    TheMessage,
    ParamW,
    ParamL);
    end;


    procedure TForm1.FormCreate(Sender: TObject);
    begin
    {Register a custom windows message}
    MyMsg := RegisterWindowMessage('MyApp');
    {Set form1's windows proc to ours and remember the old window proc}
    OldWindowProc := Pointer(SetWindowLong(Form1.Handle,
    GWL_WNDPROC,
    LongInt(@NewWindowProc)));
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    {Set form1's window proc back to it's original procedure}
    SetWindowLong(Form1.Handle,
    GWL_WNDPROC,
    LongInt(OldWindowProc));
    end;

    begin
    {Tell Delphi to hide it's hidden application window for now to avoid}
    {a "flash" on the taskbar if we halt due to another INSTANCE}
    ShowWindow(Application.Handle, SW_HIDE);
    end.

  3. #3
    اسیستنت جان

    آقا شما که یه برنامه میذاری اینجا ... عزیزم یک فایل مثال هم اینجا بگذار.
    بابا N تا پی ام داشتم که هی میگفتن برنامه درست کار نمیده و اگر یک فایل مثال داری .. بگذار.

    قربانت.
    آرتمیس.

  4. #4
    کاربر دائمی آواتار SReza1
    تاریخ عضویت
    تیر 1382
    محل زندگی
    کنار تعدادی تراریوم و کاکتوس!
    پست
    702

    تشکر

    سلام
    با کمک شما مشکل من حل شد. ممنون از کمکتون

  5. #5
    با سلام

    حالا اگر بخوایم برنامه ای با 2 فایل اجرایی داشته باشیم چی ؟

    مثلا :
    یه برنامه داریم که قسمتی برای انجام تنظیمات داره . این برنامه خارج از برنامه اصلی قرار میگیره . حالا میخوای هر وقت برنامه اصلی در حال اجراست این برنامه تنظیمات اجرا نشه .

    با تشکر .

  6. #6
    سلام
    برای این کار فکرکنم شما باید در برنامه ی دوم( برنامه تنظیمات )mutex برنامه اول را چک کنید .یعنی در برنامه اصلی این کد رو بزارید:

    program Project1;

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

    {$R *.res}
    var
    hMutex: THandle;


    begin
    hMutex := OpenMutex(MUTEX_ALL_ACCESS, false, 'myiqueName');

    if hMutex <> 0 then begin
    CloseHandle(hMutex);
    exit;
    end;

    CreateMutex(nil, true, 'myiqueName');


    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    ReleaseMutex(hMutex);
    CloseHandle(hMutex);
    end.


    و در برنامه تنظیمات فقط لازمه mutex برنامه اول چک بشه . اینجوری:

    program Project2;

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

    {$R *.res}
    var
    hMutex: THandle;


    begin
    hMutex := OpenMutex(MUTEX_ALL_ACCESS, false, 'myiqueName');

    if hMutex <> 0 then begin
    CloseHandle(hMutex);
    exit;
    end;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;

    end.

  7. #7
    دوست عزیز با تشکر از لطف شما . حتما امتحانش میکنم .

    متشکرم .

  8. #8
    خواهش میکنم عزیزم قابلی نداشت :wink:

قوانین ایجاد تاپیک در تالار

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