bb.donnay-software.com

Code: Select all

#include "ot4xb.ch"

function killapp(cTitle)
******************************************************************
local x,lFound := .f.,aWnd   := WildFindWindow(cTitle)
if len(aWnd) > 0
     for x := 1 to len(aWnd)
          hWndDlg := aWnd[x,1]
          DllCall("User32.dll",DLL_STDCALL,"SendMessageA",hWndDlg,WM_QUIT,0,0)
          lFound := .t.
          exit
     next x
endif
if !lFound
     dc_msgbox(cTitle + " not valid !")
ENDIF
return .t.


static function WildFindWindow( cStr )
******************************************************************
local aWnd     := {}
local pParam   := _xgrab(8)
DEFAULT cStr := ""
PokeDWord( pParam,,{_var2con(aWnd),_var2con(cStr)} )
@user32:EnumWindows(_callback_WildFindWindow_EnumProc(),pParam)
aEval( PeekDWord(pParam,,2) , {|e| _conRelease(e) } )
_xfree(pParam)
return aWnd