How prevent running an application twice ?

[driessen]

Hello,

A FW16 application can't be run twice on a PC, unless it is run in different parts of the memories (properties of shortcut).

How can I prevent that a FW32 application is run twice ?

Thanks.

Michel

[techops]

there is a tmutex class from fivewin.info (Patrick Mast) you should look at

[Antonio Linares]

Code: Select all | Expand

#include "FiveWin.ch" #define GW_CHILD      5 #define GW_HWNDNEXT   2 function Main()    local oWnd        if Is Exe Running( cFileName( HB_ARGV( 0 ) ) )       ShowApplication()    else          DEFINE WINDOW oWnd TITLE "Test"           ACTIVATE WINDOW oWnd    endif        return nil    function ShowApplication()    local hWnd := FindWnd( cFileNoExt( HB_ARGV( 0 ) ) )        if hWnd != nil       SetForeGroundWindow( hWnd )    endif        return nil    function FindWnd( cTitle )    local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )    while hWnd != 0       if Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )          return hWnd       endif       hWnd = GetWindow( hWnd, GW_HWNDNEXT )    end return nil 

[Enrico Maria Giordano]

Code: Select all | Expand

if Is Exe Running( cFileName( HB_ARGV( 0 ) ) )

IsExeRunning()

EMG

[driessen]

Thanks guys.

You were a great help.

My questions has been answered greatfully.

Regards,

Michel

[James Bott]

If I remember correctly, isExeRunning() doesn't work with MDI apps when there is at least on child window open (since the main window title changes) and it can also fail to work properly if there is a folder of the same name open.

James

[yam_hiong]

I'm using this code because sometimes HB_ARGV(0) acts weird on some computers, ie. slow start, my app can run twice, etc.

Code: Select all | Expand

IF IsExeRunning(cFileName(GetModuleFileName(GetInstance())))   //cFileName(HB_ARGV(0))   msgalert("Program already running!"+CRLF+"This program cannot be started more than one instance!")   QUITENDIF