Check if application is already running

[ShortyII]

Hi i was using this function to check if the application was alreay running but now i changed to fox8 it doesn't work anymore?

i searched the internet to see if the foxtools names changed or something like that but i can't find it.

AnyOne???


FUNCTION l1_appinuse
PARAMETERS lWindowTitle

SET LIBRARY TO CFYPATH + "\exe\foxtools.fll" ADDITIVE
lGetwind = regfn("FindWindow","CC","I&quot
lWclass=0
lHandle=callfn(lGetwind,lWclass,lWindowTitle)
IF lHandle <> 0
ON KEY LABEL ESCAPE *
SET ESCAPE OFF
R=l1_beep(&quot;error&quot
WAIT WINDOW &quot;THIS PROGRAM IS ALREADY RUNNING !&quot; NOWAIT
QUIT
ENDIF
SET LIBRARY TO
RETURN .F.

 

[ramani]

Hi

There are a number of FAQs on this.

The one I have been using for quite some time is,
How to ensure that only one instance of my application is running in my desktop.
faq184-839



ramani
(Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[ShortyII]

Thanx for the FAQ have to say i didn't checked that page
Will do next time there are some great things on it

 

[Mike Lewis]

ShortyII,

You might also want to take a look at &quot;Find out what applications are running on the user's system&quot;, at:

http://www.ml-consult.demon.co.uk/foxst-11.htm

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk