**************************************************
* запись хендла окна приложения в файл подкачки
**************************************************
FUNCTION SaveHWnd
	LPARAMETERS tcPrgID
	IF EMPTY(m.tcPrgID) OR VARTYPE(m.tcPrgID)#'C'
	   tcPrgID = PROGRAM( 0 )
	ENDIF

	LOCAL lnHWnd, lcHWnd, lnCFMHandle, lnWFMHandle

	DECLARE integer GetActiveWindow In Win32API 
	* получим handle нашего окна
	lnHWnd = GetActiveWindow()
	IF m.lnHWnd =  0 
	   CLEAR DLLS 'GetActiveWindow'
	   RETURN .F.
	ELSE
	   lcHWnd = TRANSFORM(m.lnHWnd)
	ENDIF

	DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
         INTEGER lpFileMappingAttributes, INTEGER flProtect, ;
         INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
         STRING lpName

	DECLARE INTEGER MapViewOfFile IN kernel32.DLL ;
         INTEGER hFileMappingObject, INTEGER dwDesiredAccess, ;
         INTEGER dwFileOffsetHigh, INTEGER dwFileOffsetLow, ;
         INTEGER dwNumberofBytesToMap

	DECLARE INTEGER GetLastError IN kernel32.DLL

	DECLARE INTEGER lstrcpy IN kernel32.DLL ;
         INTEGER lpString1, STRING @lpString2

	DECLARE INTEGER UnmapViewOfFile IN kernel32.DLL ;
         INTEGER lpBaseAddress

	DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject

	#DEFINE page_writeread  4 
	#DEFINE page_readwrite  4 
	#DEFINE file_map_read  4 
	#DEFINE file_map_write  2 

	* FFFFFFFF ( 2 ^ 32 ) means: Use the Windows NT pagefile as the memory-
	* mapped file.
	* Otherwise, you could substitute a handle that you have created.
	#DEFINE usepagefile 0xFFFFFFFF 

	* This says: Create a file-mapping object from the pagefile,
	* using a default security descriptor, giving Read/Write access
	* to the committed region, with a maximum size of  4096  bytes,
	* named szeName, and return the handle to this file-mapping
	* object in variable 'handle'.
	lnCFMHandle = createfilemapping(usepagefile,  0 , page_readwrite,  0 , ;
          4096 , m.tcPrgID)
	IF m.lnCFMHandle =  0 
		*WAIT WINDOW "CreateFileMapping failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN .F.
	ENDIF

	* This says: Given the handle obtained above, give full access
	* to the file-mapping object, starting at offset  0 , and map the
	* entire file into my process address space.
	lnWFMHandle = mapviewoffile(m.lnCFMHandle, file_map_write,  0 ,  0 ,  0 )
	IF m.lnWFMHandle =  0 
		*WAIT WINDOW "MapViewOfFile failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN .F.
	ENDIF

	* Now, the file can be treated just like a memory address.
	* Use lstrcpy to copy the FoxPro string to addhandle, the
	* starting address of the mapped view.

	* The text you want to write to the shared memory-mapped
	* file goes here.

	lstrcpy(m.lnWFMHandle, @lcHWnd)

	* When we've finished with it, unmap the file-mapping object
	* from our address space and release the handle.
	*=UnmapViewOfFile (m.lnWFMHandle)
	
	* этот хендл не закрываю, чтобы текст в памяти висел
	*=CloseHandle(m.lnCFMHandle )

CLEAR DLLS 'CreateFileMapping', 'MapViewOfFile', 'GetLastError',;
			'lstrcpy', 'UnmapViewOfFile', 'CloseHandle', 'GetActiveWindow'
RETURN .T.
ENDFUNC
**************************************************
* чтение хендла окна приложения из файла подкачки
**************************************************
FUNCTION ReadHWnd
	LPARAMETERS tcPrgID
	IF EMPTY(m.tcPrgID) OR VARTYPE(m.tcPrgID)#'C'
	   tcPrgID = PROGRAM(0)
	ENDIF

	LOCAL lnHWnd, lcHWnd, lnCFMHandle, lnWFMHandle

	DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
         INTEGER lpFileMappingAttributes, INTEGER flProtect, ;
         INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
         STRING lpName

	DECLARE INTEGER MapViewOfFile IN kernel32.DLL ;
         INTEGER hFileMappingObject, INTEGER dwDesiredAccess, ;
         INTEGER dwFileOffsetHigh, INTEGER dwFileOffsetLow, ;
         INTEGER dwNumberofBytesToMap

	DECLARE INTEGER GetLastError IN kernel32.DLL

	DECLARE INTEGER lstrcpy IN kernel32.DLL ;
         STRING @lpString1, INTEGER lpString2

	DECLARE INTEGER UnmapViewOfFile IN kernel32.DLL ;
         INTEGER lpBaseAddress

	DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject

	#DEFINE page_writeread 4
	#DEFINE page_readwrite 4
	#DEFINE file_map_read 4
	#DEFINE file_map_write 2

	* FFFFFFFF (2^32) means: Use the Windows NT pagefile as the memory-
	* mapped file.
	* Otherwise, you could substitute a handle that you have created.
	#DEFINE usepagefile 0xFFFFFFFF 

	* This says: Create a file-mapping object from the pagefile,
	* using a default security descriptor, giving Read/Write access
	* to the committed region, with a maximum size of 4096 bytes,
	* named szeName, and return the handle to this file-mapping
	* object in variable 'handle'.
	lnCFMHandle = createfilemapping(usepagefile, 0, page_readwrite, 0, ;
         4096, m.tcPrgID)
	IF m.lnCFMHandle = 0
		*WAIT WINDOW "CreateFileMapping failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN 0
	ENDIF

	* This says: Given the handle obtained above, give full access
	* to the file-mapping object, starting at offset 0, and map the
	* entire file into my process address space.
	lnWFMHandle = mapviewoffile(m.lnCFMHandle, file_map_write, 0, 0, 0)
	IF m.lnWFMHandle = 0
		*WAIT WINDOW "MapViewOfFile failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN 0
	ENDIF

	* Now, the file can be treated just like a memory address.
	* Use lstrcpy to copy the FoxPro string to addhandle, the
	* starting address of the mapped view.

	lcHWnd = SPACE(254)
	lstrcpy(@lcHWnd,m.lnWFMHandle)

	* When we've finished with it, unmap the file-mapping object
	* from our address space and release the handle.
	=UnmapViewOfFile (m.lnWFMHandle)
	=CloseHandle(m.lnCFMHandle)

CLEAR DLLS 'CreateFileMapping', 'MapViewOfFile', 'GetLastError',;
			'lstrcpy', 'UnmapViewOfFile', 'CloseHandle', 'GetActiveWindow'

RETURN VAL(m.lcHWnd)
ENDFUNC

**************************************************
* подъем приложения по окну
**************************************************
FUNCTION AppWndActivate
	LPARAMETERS tnHWND
	LOCAL llResult
	IF VARTYPE(m.tnHWND)#'N' OR EMPTY(m.tnHWND)
		tnHWND = VAL(ReadHWnd())
	ENDIF
	IF m.tnHWND > 0 
		#DEFINE SW_NORMAL     1 
		#DEFINE SW_MAXIMIZE   3 
		#DEFINE SW_MINIMIZE   6 

		DECLARE Long BringWindowToTop in Win32API Long
		DECLARE Long ShowWindow in Win32API Long, Long
	
		BringWindowToTop(m.tnHWND)
		ShowWindow(m.tnHWND,SW_MAXIMIZE)

		CLEAR DLLS 'BringWindowToTop', 'ShowWindow'
		llResult = .T.
	ENDIF
	RETURN m.llResult
ENDFUNC

   * если прога уже запущена
   LOCAL lnAppHWnd
   lnAppHWnd = ReadHWnd('MY_APP_HWND')
   IF m.lnAppHWnd #  0  
      MESSAGEBOX('Програма уже запущена', 16 ,'Ошибка')
      IF NOT AppWndActivate(m.lnAppHWnd)
	 * не удалось поднять окно
	 MESSAGEBOX('Не удается активировать окно приложения', 48 ,'Ошибка')
      ENDIF
      RETURN .F.
   ENDIF

   IF NOT SaveHWnd()
      MESSAGEBOX('Ошибка функции SaveHWnd('MY_APP_HWND')', 16 ,'Ошибка')
      RETURN .F.
   ENDIF

**********************************************************
* запись/чтение хендла окна приложения из файла подкачки
**********************************************************
FUNCTION SaveReadHWnd
	LPARAMETERS tcPrgID, tnMode
	*tnMode= 0  - Read
	*tnMode= 1  - Save
	
	IF EMPTY(m.tcPrgID) OR VARTYPE(m.tcPrgID)#'C'
	   tcPrgID = PROGRAM( 0 )
	ENDIF

	IF VARTYPE(m.tnMode)#'N' OR m.tnMode# 0  AND m.tnMode# 1 
	   tnMode =  0 
	ENDIF

	LOCAL lnHWnd, lcHWnd, lnCFMHandle, lnWFMHandle

	DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
         INTEGER lpFileMappingAttributes, INTEGER flProtect, ;
         INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
         STRING lpName

	DECLARE INTEGER MapViewOfFile IN kernel32.DLL ;
         INTEGER hFileMappingObject, INTEGER dwDesiredAccess, ;
         INTEGER dwFileOffsetHigh, INTEGER dwFileOffsetLow, ;
         INTEGER dwNumberofBytesToMap

	DECLARE INTEGER GetLastError IN kernel32.DLL

	IF m.tnMode= 0 
	* для чтения
		DECLARE INTEGER lstrcpy IN kernel32.DLL ;
	         STRING @lpString1, INTEGER lpString2
	ELSE
	* для записи
		DECLARE INTEGER lstrcpy IN kernel32.DLL ;
	         INTEGER lpString1, STRING @lpString2

		DECLARE integer GetActiveWindow In Win32API 
		* получим handle нашего окна
		lnHWnd = GetActiveWindow()
		IF m.lnHWnd =  0 
		   CLEAR DLLS 'GetActiveWindow'
		   RETURN .F.
		ELSE
		   lcHWnd = TRANSFORM(m.lnHWnd)
		   CLEAR DLLS 'GetActiveWindow'
		ENDIF
	ENDIF

	DECLARE INTEGER UnmapViewOfFile IN kernel32.DLL ;
         INTEGER lpBaseAddress

	DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject

	#DEFINE page_writeread  4 
	#DEFINE page_readwrite  4 
	#DEFINE file_map_read  4 
	#DEFINE file_map_write  2 

	* FFFFFFFF ( 2 ^ 32 ) means: Use the Windows NT pagefile as the memory-
	* mapped file.
	* Otherwise, you could substitute a handle that you have created.
	#DEFINE usepagefile 0xFFFFFFFF 

	* This says: Create a file-mapping object from the pagefile,
	* using a default security descriptor, giving Read/Write access
	* to the committed region, with a maximum size of  4096  bytes,
	* named szeName, and return the handle to this file-mapping
	* object in variable 'handle'.
	lnCFMHandle = createfilemapping(usepagefile,  0 , page_readwrite,  0 , ;
          4096 , m.tcPrgID)
	IF m.lnCFMHandle =  0 
		*WAIT WINDOW "CreateFileMapping failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN IIF(m.tnMode= 0 , 0 ,.F.)
	ENDIF

	* This says: Given the handle obtained above, give full access
	* to the file-mapping object, starting at offset  0 , and map the
	* entire file into my process address space.
	lnWFMHandle = mapviewoffile(m.lnCFMHandle, file_map_write,  0 ,  0 ,  0 )
	IF m.lnWFMHandle =  0 
		*WAIT WINDOW "MapViewOfFile failed - LastError: " ;
            + TRANSFORM(getlasterror())
		RETURN IIF(m.tnMode= 0 , 0 ,.F.)
	ENDIF

	* Now, the file can be treated just like a memory address.
	* Use lstrcpy to copy the FoxPro string to addhandle, the
	* starting address of the mapped view.

	IF m.tnMode= 0 
		lcHWnd = SPACE( 254 )
		lstrcpy(@lcHWnd,m.lnWFMHandle)
	ELSE
		lstrcpy(m.lnWFMHandle, @lcHWnd)
	ENDIF

	* When we have finished with it, unmap the file-mapping object
	* from our address space and release the handle.
	=UnmapViewOfFile (m.lnWFMHandle)

	* в режиме записи этот хендл не закрываю, чтобы текст в памяти висел
	IF m.tnMode= 0 
		=CloseHandle(m.lnCFMHandle)
	ENDIF

CLEAR DLLS 'CreateFileMapping', 'MapViewOfFile', 'GetLastError',;
			'lstrcpy', 'UnmapViewOfFile', 'CloseHandle', 'GetActiveWindow'

RETURN IIF(m.tnMode= 0 ,VAL(m.lcHWnd),.T.)
ENDFUNC

**************************************************
* подъем приложения по окну
**************************************************
FUNCTION AppWndActivate
	LPARAMETERS tnHWND
	LOCAL llResult
	IF VARTYPE(m.tnHWND)#'N' OR EMPTY(m.tnHWND)
		tnHWND = VAL(SaveReadHWnd())
	ENDIF
	IF m.tnHWND > 0 
		#DEFINE SW_NORMAL     1 
		#DEFINE SW_MAXIMIZE   3 
		#DEFINE SW_MINIMIZE   6 

		DECLARE Long BringWindowToTop in Win32API Long
		DECLARE Long ShowWindow in Win32API Long, Long
	
		BringWindowToTop(m.tnHWND)
		ShowWindow(m.tnHWND,SW_MAXIMIZE)

		CLEAR DLLS 'BringWindowToTop', 'ShowWindow'
		llResult = .T.
	ENDIF
	RETURN m.llResult
ENDFUNC

   * если прога уже запущена
   LOCAL lnAppHWnd
   lnAppHWnd = SaveReadHWnd('MY_APP_HWND')
   IF m.lnAppHWnd #  0  
      * собственно сообщение можно не сообщать
      *MESSAGEBOX('Программа уже запущена', 16 ,'Ошибка')
      IF NOT AppWndActivate(m.lnAppHWnd)
	 * не удалось поднять окно. врядли такое произойдет, но тогда
            * здесь можно просто сказать что прога уже работает
            MESSAGEBOX('Программа уже запущена', 16 ,'Ошибка')
	 *MESSAGEBOX('Не удается активировать окно приложения', 48 ,'Ошибка')
      ENDIF
      RETURN .F.
   ENDIF

   IF NOT SaveReadHWnd('MY_APP_HWND', 1 )
      MESSAGEBOX('Ошибка функции SaveHWnd()', 16 ,'Ошибка')
      RETURN .F.
   ENDIF

...
	IF EMPTY(m.tcPrgID) OR VARTYPE(m.tcPrgID)#'C'
	   tcPrgID = PROGRAM( 0 )
	ENDIF
...

CHRTRAN(SUBSTR(SYS( 16 , 0 ),RAT('\',SYS( 16 , 0 ))+ 1 ),'.','_')