>How do I eliminate the ability of a user to start multiple instances of my distributed foxpro program?
>Thanks
>Larry

This is my code
... Coming From VFUG NEWSLETTER ...


FUNCTION IsOpenApplication
**** Prévention de multiples appels de l'application
ENDIF
FUNCTION IsWindowOpen
LPARAMETER tcExeName
LOCAL lhWhandle,lIsYetOpen
DECLARE INTEGER FindWindow IN Win32Api STRING,STRING

lhWhandle=FindWindow(NULL,tcExeName)
IF lhWhandle#0
lIsYetOpen=.T.
ELSE
lIsYetOpen=.F.
ENDIF
RETURN lIsYetOpen

Hope this help
Michel