🚀 go-pugleaf

Hi Robert
 
 Robert Huang says:
 
> When A is running, the message "Already in running!!" will appear.
> But when A is terminated, the message will still appear.
> How do I fix the problem?

The corrections in the code below is just an idea, 
and I have not tested it.

Kind regards
Asger

//---------------------------------------------------------------------------
void __fastcall TBForm::ButtonExeClick(TObject *Sender)
{
    HANDLE TargetMutex = CreateMutex(NULL, false, "Program-A");
    if(GetLastError() == ERROR_ALREADY_EXISTS)
    {
       ShowMessage("Already in running!!");
    }else 
    if(TargetMutex){
       ReleaseMutex(TargetMutex);
       CloseHandle(TargetMutex);
	 WinExec(ExeATitle.c_str(), SW_SHOW);
    }     
}
//---------------------------------------------------------------------------


And in program-A will be like this:


HANDLE Mutex;
//---------------------------------------------------------------------------
__fastcall TAForm::TAForm(TComponent* Owner)
        : TForm(Owner)
{
    Mutex = CreateMutex(NULL, false, "Program-A");
   // shouldn't You be doing some checking here ??
}
//---------------------------------------------------------------------------
void __fastcall TAForm::FormClose(TObject *Sender, TCloseAction &Action)
{
    ReleaseMutex(Mutex);
    CloseHandle(Mutex);
    Action = caFree;
}
//---------------------------------------------------------------------------