************************************************************
*  FUNCTION FirstInstance()
************************************************************
*  Author............: Gary Foster, Pointsource Consulting, Inc.   104171 . 3677 @compuserve.com
*  Project...........: Starbase
*  Created...........:  03 / 13 / 98    15 : 39 : 58 
*  Copyright.........: Public Domain
*) Description.......: This function uses the creation of a named MUTEX
*)                   : to determine existing instance of an application.
*)                   : Call this function very early in an application's
*)                   : startup to create a named object that can be checked
*)                   : every time the application is started.  If the named 
*)                   : object exists, the function will try to bring foreward
*)                   : the applications main frame.  In this case, the main frame
*)                   : is the FoxPro _SCREEN. Any other hWnd would do as well.
*)                   : 
*  Calling Samples...: IF !FirstInstance()
*                    :    QUIT  && Or something along that line.
*                    : ELSE
*                    :    yada yada yada...
*)  Parameter List...: lcStarBase - уникальный идентификатор прилодения 
*)                   : в виде строковой константы
*  Major change list.:

FUNCTION FirstInstance()
LPARAMETERS lcStarBase

   *-- Declare just enough API functions and constant defines to support this function.
   #DEFINE SW_RESTORE               9
   #DEFINE ERROR_ALREADY_EXISTS   183
   #DEFINE GW_HWNDNEXT              2
   #DEFINE GW_CHILD                 5

   DECLARE INTEGER CreateMutex IN win32api INTEGER, INTEGER, STRING @
   DECLARE INTEGER CloseHandle IN win32api INTEGER
   DECLARE INTEGER GetLastError IN win32api
   DECLARE INTEGER SetProp IN win32api INTEGER, STRING @, INTEGER
   DECLARE INTEGER GetProp IN win32api INTEGER, STRING @
   DECLARE INTEGER RemoveProp IN win32api INTEGER, STRING @
   DECLARE INTEGER IsIconic IN win32api INTEGER
   DECLARE INTEGER SetForegroundWindow IN USER32 INTEGER
   DECLARE INTEGER GetWindow IN USER32 INTEGER, INTEGER
   DECLARE INTEGER ShowWindow IN WIN32API INTEGER, INTEGER
   DECLARE INTEGER GetDesktopWindow IN WIN32API

   *-- We need a function from Foxtools. I know I could get this from the API, but I'm lazy.
   IF !( "FOXTOOLS"  $ UPPER(SET( "LIBRARY" )))
      SET LIBRARY TO FOXTOOLS.fll ADDI
   ENDIF
   
   LOCAL cExeFlag  && Name of the MUTEX
   LOCAL nExeHwnd  && MUTEX handle
   LOCAL hWnd      && Window handle
   LOCAL lRetVal   && Return value of this function

   * -- Try and create a new MUTEX with this name.
 
*!*	   cExeFlag =  "STARBASE" +CHR( 0 )
   IF EMPTY(lcStarBase)
	   cExeFlag =  "STARBASE" +CHR( 0 )
   ELSE
	   cExeFlag = lcStarBase+CHR( 0 )
   ENDIF
   nExeHwnd = CreateMutex( 0 , 1 ,@cExeFlag)

   * -- If the named MUTEX creation fails because it exists already, try to display
 
   * -- the existing application and have this function return .F., presumably
 
   * -- to a calling routine that is deciding whether to continue instantiation.
 
   IF GetLastError() = ERROR_ALREADY_EXISTS

      * -- Get the hWnd of the first top level window on the Windows Desktop.
 
      HWND = GetWindow(GetDesktopWindow(), GW_CHILD)

      * -- Loop through the windows. If the application has no top level window, 
 
      * -- the loop will quickly run out of desktop windows and simply exit.
 
      DO WHILE HWND >  0 

         * -- Is this the proper window? GetProp looks() for a property we added
 
         * -- the first time, not a caption.
 
         IF GetProp(HWND, @cExeFlag) =  1 

            * -- If the application window is minimized, open %af_src_str_1failed to open%af_src_str_2t need it any more.
 
      CloseHandle(nExeHwnd)

      lRetVal = .F.

   ELSE
      * -- Add a property to the FoxPro main frame so we can identify this 
 
      * -- window again regardless of caption changes.
 
      SetProp(MainHwnd(), @cExeFlag,  1 )
      lRetVal = .T.
   ENDIF

   RETURN lRetVal

ENDFUNC

lcUniqueFileName='..'
if fcreate(lcUniqueFileName)< 0 
 =messagebox('..')
quit

n=_screen.WindowState
_screen.WindowState=  1 
_screen.WindowState= n

IF !FirstInstance('MyProgram')
    CANCEL
ENDIF

if fcreate('tmp12345.tmp')< 0 
 cancel
endif

public hFile
hFile=fcreate('test.tmp')
if hFile < 0 
 quit
endif
*!* ShutDown
=fclose(hFile)
delete file test.tmp

?FILE('c:\boot.ini') && .F.
?FILE('c:\boot.ini', 1 ) && .T.