GW_OWNER = 4  
GW_HWNDFIRST = 0  
GW_HWNDNEXT = 2  
SW_RESTORE = 9  

DECLARE INTEGER SetForegroundWindow IN win32api LONG lnhWnd  
DECLARE INTEGER GetWindowText IN win32api INTEGER, STRING, INTEGER  
DECLARE INTEGER GetWindow IN win32api INTEGER,INTEGER  
DECLARE INTEGER GetActiveWindow IN win32api   
DECLARE INTEGER IsIconic IN win32api INTEGER  
DECLARE INTEGER ShowWindow IN WIN32API INTEGER, INTEGER  
Declare Integer GetPrivateProfileString In Win32API  As GetPrivStr ;    
      String cSection, ;        && Имя раздела  
      String cKey, ;        && Имя реквизита  
      String cDefault, ;        && Значение по умолчанию, если нет указанного раздела или реквизита  
      String @cBuffer, ;        && Собственно считанное значение реквизита  
      Integer nBufferSize, ;    && Максимальное количество символов в считанном реквизите  
      String posfile        && имя ini-файла с полным путем доступа  
... всякий код, определяю запущено ли

        *Окно свернуто в трей?
        IF IsIconic(hwndn) > 0  
            ShowWindow(hwndn,SW_RESTORE)  
        ENDIF  
        =SetForegroundWindow(hwndn)  

*********** Определение запущена ли программа
#Define SW_RESTORE 9

Declare integer ShowWindow in user32 integer hWnd, integer nCmdShow

*HWnd=Is_run32(tcAppName)
HWnd = This.Isrun(tcAppName)
If hwnd != 0
    _screen.Visible = .T. 
    _screen.FontName = "Arial"
    _screen.FontSize = 10
    _screen.Windowstate = 2
    _screen.Icon = 'prod.ico'
    _screen.BackColor = RGB(34,139,34)
    _screen.Caption='Продажи - повторный запуск'
    hide menu _msysmenu

    LOCAL lcMsg, lnPictBtn, lcPict, lnOtvet
    m.lcMsg = "Программа {Bold,Color=Red Size=+3} УЖЕ ЗАПУЩЕНА {} на этом компьютере." + CHR(13);
    + "В некоторых случаях бывает удобно работать одновременно с несколькими копиями..." + CHR(13) ;
    + "{Color=Red,Size=+3} ВАЖНО!{} " + CHR(13) ;
    + "{Color=Blue,Italic,Size=+3} Потом не забыть закрыть все работающие копии программы!{} " + CHR(13) ;
    + "{Bold}Открыть ранее запущенный экземпляр программы? {} " + CHR(13);
    + "При выборе [Нет] запустится новый экземпляр программы..."
    m.lnPictBtn = 128+4  && Своя картинка + кнопки Да, Нет
    m.lcPict = "error_3043.png"
    lnOtvet =  Msgbox(m.lcMsg, m.lnPictBtn, "ВНИМАНИЕ!", 0, m.lcPict)
    _screen.Visible = .F. 
    IF lnOtvet <> 7 
        = ShowWindow(hwnd, SW_RESTORE) && Разворачиваем, активизируем ранее запущеную instance приложения
        CLEAR DLLS
             This.netcomp = SYS(2015)
        RETURN .F. && Новое instance завершаем
    ENDIF 
Endif
CLEAR DLLS
RELEASE hwnd
RETURN .T.

LPARAMETER tcTitleApplication 
LOCAL lnhwnd,nhwnd
DECLARE INTEGER GetWindowText IN Win32API ; 
INTEGER hwnd, STRING @lptstr, INTEGER 
m.tcTitleApplication=UPPER(m.tcTitleApplication)
lnhwnd = 0
FOR nhwnd=1 TO 9000
    lptstr=SPAC(200)+CHR(0)
    =GetWindowText(nhwnd,@lptstr,LEN(lptstr))
    IF  m.tcTitleApplication $ upper(lptstr)
        lnhwnd = nhwnd
        EXIT
    ENDIF
NEXT
RETURN lnhwnd 

S_caption="Наименование моей программы в заголовке"
*****************************************************************************************************************************************************
*****************************************************************************************************************************************************
*****************************************************************************************************************************************************
lcProcName='e-mail.exe' &&имя exe-шника
&&Ищу, его в запущенных программах
Declare Integer CreateToolhelp32Snapshot In Win32api Integer dwFlags, Integer th32ProcessID
Declare Integer Process32First In Win32api Integer lhSnapshot, String lppe
Declare Integer Process32Next In Win32api Integer lhSnapshot, String lppe
Declare Integer CloseHandle In kernel32 Integer hObject

Local lnRetCode, lppe, lhSnapshot, lnInstanceCnt

lnInstanceCnt = 0
lcProcName = Upper(lcProcName)
lppe = Chr(44) + Chr(1) + Replicate(Chr(0), 298)

lhSnapshot = CreateToolhelp32Snapshot(2, 0)
lnRetCode = Process32First(lhSnapshot, @lppe)

DO WHILE lnRetCode <> 0
    IF lcProcName $ Upper(Substr(lppe, 37, 256))
        lnInstanceCnt = lnInstanceCnt + 1
    ENDIF
    lnRetCode = Process32Next(lhSnapshot, @lppe)
ENDDO

IF lnInstanceCnt>1 &&Программа обнаружена
    DECLARE INTEGER FindWindow IN Win32Api STRING lpClassName, STRING lpWindowName
    lnHWnd = FindWindow(NULL, S_caption)
    IF lnHWnd>0
        DECLARE INTEGER ShowWindow IN WIN32API INTEGER, INTEGER
        ShowWindow(lnHWnd,9)
        QUIT
    ELSE
        WAIT WINDOWS 'Программа уже запущена' TIMEOUT 1
        QUIT
    ENDIF
ENDIF

DECLARE Long SendMessage IN WIN32API Long HWND, Long wMsg, Long wParam, Long Lparam

#define WM_SYSCOMMAND 0x0112
#DEFINE SC_RESTORE 0xF120    
#DEFINE SC_MAXIMIZE 0xF030
#DEFINE SC_MINIMIZE 0xF020

...

IF lnInstanceCnt>1 &&Программа обнаружена
    DECLARE INTEGER FindWindow IN Win32Api STRING lpClassName, STRING lpWindowName
    lnHWnd = FindWindow(NULL, S_caption)
    IF lnHWnd>0
        DECLARE INTEGER ShowWindow IN WIN32API INTEGER, INTEGER
        ShowWindow(lnHWnd,9)
        = SendMessage(lnHWnd, WM_SYSCOMMAND, SC_RESTORE, 0x0) && или SC_MAXIMIZE
        QUIT
    ELSE
        WAIT WINDOWS 'Программа уже запущена' TIMEOUT 1
        QUIT
    ENDIF
ENDIF