HI, this code: (by EMG)
IF ISEXERUNNING( CFILENOEXT( HB_ARGV( 0 ) ) )
SHOWWINDOW( FINDWINDOW( 0, "Titolo tua finestra" ), 9 )
SETFOREGROUNDWINDOW( FINDWINDOW( 0, "Titolo tua finestra" ) )
RETURN NIL
ENDIF
works before build window of exe?
Norberto,
It requires the main window to exist already
Antonio,
i need some method to before creation of the main window. I need detect it is already running and put the focus on open application.
if GetModuleHandle( HB_ARGV( 0 ) ) != 0
MsgInfo( "App already running" )
return 0
endifAntonio, isexerunning works without main window, but i cant put focus in already open appl.
thanks
Norberto,
If there is no user input in the already running app, what do you mean/expect giving it the focus ?
Antonio,
I need detect another instance of the same application, and if there is another instance, transfer focus to it, maybe showing the screen in the foreground, but I wanted to do this before the initial window, perhaps checking the name of the executable and not the window title.
thanks
pTitulo:="Nome do teu sistema que fica na barra de cima da Window"
If IsExeRunning( cFilename( hb_Argv(0) ) )
SHOWWINDOW( FINDWINDOW( 0, pTitulo ), 3 )
SETFOREGROUNDWINDOW( FINDWINDOW( 0, pTitulo ) )
return nil
EndifKleyber, this works after build main window, i need before.
i need something using the name of exe, not main windows title, because at this point , it not create.
Thanks
FUNCTION main
if IsExeRunning( cFileName( HB_ARGV( 0 ) ) )
ShowApplication()
else
DEFINE WINDOW oWnd
WritePProString( "Programm" , "RECHNUNG", oWnd:cTitle(), ".\ini\whLink.ini" )
ACTIVATE WINDOW oWnd MAXIMIZED
endif
return
//----------------------------------------------------------------------------//
function ShowApplication()
local hWnd := 0
local cFileNoExt := ""
local uVar = GetPvProfString( "Programm", "RECHNUNG", "WINHOTEL",".\ini\whLink.ini" )
hWnd := FindWnd( uVar )
if hWnd != nil
if IsIconic( hWnd )
ShowWindow( hWnd, SW_RESTORE )
endif
SetFocus( hWnd )
SetForeGroundWindow( hWnd )
endif
return nil
//----------------------------------------------------------------------------//
function FindWnd( cTitle )
local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )
while hWnd != 0
if Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )
return hWnd
endif
hWnd = GetWindow( hWnd, GW_HWNDNEXT )
end
return nil
//----------------------------------------------------------------------------//Can we see a little but complete sample showing your problem? I didn't understand it.
EMG
Enrico, Otto, thanks, but dont work to me.
I wanted check the existence of another instance the application before creating the main window, before checking the User, open files, etc.
all the solutions posted work after the main window created .I wanted first of all, at the beginning of the system.
May have to get the handle of the system and not the name (caption)
i wanted to check the existence of another instance, move the focus to it, and leave the second instance (quit).
but thanks to all.
norberto wrote:Kleyber, this works after build main window, i need before.
i need something using the name of exe, not main windows title, because at this point , it not create.
Thanks
hI, isexerunning detects another instance, but i cant put this in foreground (focus).
