Did a little digging

here's the code

SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
* FindWindow() takes two parameters and returns the handle of the
* window, HWND, if it was found.
GetWind = RegFn("FindWindow", "CC", "I")
*Set the first parameter of the call to getwind to 0, null.
wclass=0
winname="My Application"
apphand=CallFn(GetWind,wclass ,winname)
*If the call was successful, stop processing.
IF apphand<>0
WAIT WINDOW ;
"You cannot start another instance of the window 'My Application'!"
QUIT
ENDIF
MODIFY WINDOW screen TITLE "My Application"
WAIT WINDOW ;
"The first instance of the window 'My Application' is running."


Also, unfortunately there wont be a VFP8 or 9 Enterprise book. I dont have
the time to write for the VFP book market anymore.

Thanks
Rodman