FindWindow in a server

[MarcoBoschi]

Hi to all,
I have to know if "myprogram" is already running in other sessions in a server.
Is it possible?
If a Open Task Manager and I click show processes from all users I can have this info.

I need to perform this control at the beginning of myprogram.
to ensure that myprogram is running twice in the same server.

Now I perform this control at the beginning


IF FindWindow( 0 , "myprogram" ) <> 0
RETURN NIL
ENDIF

Is it possible?

Many thanks
Marco

[Antonio Linares]

Marco,

Surely there may be other ways, but these are a few ways:

1. Try to open the EXE file in exclusive mode. If you can't, then it is already in use.

2. The EXE generates a file in disk. If this file exists, then the app is running.

Option 1 seems better

[MarcoBoschi]

Excellent idea
Many thanks!

Marco

[Antonio Linares]

The problem with option 2 is that the app may have crashed and the file remains as not deleted.

Thats why option 1 seems as the better one

[Horizon]

Marco,

Surely there may be other ways, but these are a few ways:

1. Try to open the EXE file in exclusive mode. If you can't, then it is already in use.

2. The EXE generates a file in disk. If this file exists, then the app is running.

Option 1 seems better

Hi Antonio,

How to open the EXE file exclusive mode? Can you explain more?

Thanks

[Antonio Linares]

Hakan,

In harbour\include\fileio.ch there is a FO_EXCLUSIVE define that can be used as a flag for FOpen().

Here it is explained how to use it:
http://www.fivetechsoft.com/harbour-docs/harbour-reference-guide.htm#FOpen

[dbmanfwh]

Marco,

Code: Select all  Expand view

IF IsExeRunning( cFilename( GetModuleFileName( GetInstance() ) ) )
   RETURN NIL
ENDIF
 

[Horizon]

Marco,

Code: Select all  Expand view

IF IsExeRunning( cFilename( GetModuleFileName( GetInstance() ) ) )
   RETURN NIL
ENDIF
 

Hi,

Is this syntax valid for network?

[dbmanfwh]

HaKan,

When installs program on each computer and shares data, is not possible and
When share program and the data in network, is possible.

[MarcoBoschi]

If I open exe in this way it works
FOPEN( "cic_spi.exe" , FO_READWRITE )

in this way not
FOPEN( "cic_spi.exe" , FO_EXCLUSIVE )

because I can open exe even if it is already running

Best regards
Marco