FiveTech Software tech support forums

Posted: **Wed Feb 21, 2007 1:00 am**

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

Posted: **Wed Feb 21, 2007 4:12 am**

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

Posted: **Wed Feb 21, 2007 7:53 am**

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

Posted: **Wed Feb 21, 2007 8:37 am**

Antonio Linares wrote:
Code: Select all | Expand
if Is Exe Running( cFileName( HB_ARGV( 0 ) ) )

IsExeRunning() :-)

EMG

Posted: **Wed Feb 21, 2007 1:36 pm**

Thanks guys.

You were a great help.

My questions has been answered greatfully.

Regards,

Michel

Posted: **Wed Feb 21, 2007 4:37 pm**

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

Posted: **Fri Mar 02, 2007 5:55 am**

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!")
   QUIT
ENDIF

FiveTech Software tech support forums

How prevent running an application twice ?

How prevent running an application twice ?