>Hi,
>How can I control to prevent the vfp9 application running
>twice ?
>
>Please advise.
>
>Thanks.
>Derek Yim

Local oMutex, cformcaptiono
cformcaptiono= _SCREEN.Caption
_Screen.Caption= ""
cformcaption= "This title and version... V 5.312"
lTellTime= .T.
oMutex = CREATEOBJECT('Mutex', cformcaption)
If oMutex.nMutexError # ERROR_ALREADY_EXISTS
   _Screen.Caption = cformcaption
Else
   oMutex.DisplayInstance()
   WAIT WINDOW "This Application is already being run from this workstation!" TIMEOUT 13
   _SCREEN.Caption= cformcaptiono
   oMutex = .NULL.
   ON SHUTDOWN 
   Return
Endif
*... your startup code