Is there a way to close a program that was left on purpose open ? I need to close it after the user has finished the current transaction.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How can I get a program's process id ?
Gustavo,
Do you know the caption of its main window ?
TerminateProcess( GetWindowTask( FindWindow( "window caption", 0 ) ) )
Antonio:
I do know the caption and can set it up as a unique one. Where I can find the description for these two functions ?
TerminateProcess( GetWindowTask(
Working with the TerminateApp the linker gives me this error:
Error: Unresolved external '_HB_FUN_TERMINATEAPP' referenced from ...
I know there's a LIB or include missing. Please shine some light on these 2 issues. Thank you very much.
I do know the caption and can set it up as a unique one. Where I can find the description for these two functions ?
TerminateProcess( GetWindowTask(
Working with the TerminateApp the linker gives me this error:
Error: Unresolved external '_HB_FUN_TERMINATEAPP' referenced from ...
I know there's a LIB or include missing. Please shine some light on these 2 issues. Thank you very much.
http://msdn.microsoft.com/en-us/library/ms686714(VS.85).aspx
GetWindowTask() is obsolete, according to Microsoft, but keeps working fine 
Gustavo,
add this code to your PRG:
add this code to your PRG:
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( TERMINATEPROCESS )
{
hb_retl( TerminateProcess( ( HANDLE ) hb_parnl( 1 ),
IF( PCOUNT() > 1, hb_parni( 2 ), 0 ) ) );
}
#pragma ENDDUMPAntonio:
Thank you. Now I got a couple of warnings and errors:
Warning W8065 PKILL.prg 18: Call to function 'PCOUNT' with no prototype in function HB_FUN_TERMINATEPROCESS
Warning W8065 PKILL.prg 18: Call to function 'IF' with no prototype in functio
n HB_FUN_TERMINATEPROCESS
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_PCOUNT' referenced from F:\PKILL.OBJ
Error: Unresolved external '_IF' referenced from F:\PKILL.OBJ
Thank you for your help.
Thank you. Now I got a couple of warnings and errors:
Warning W8065 PKILL.prg 18: Call to function 'PCOUNT' with no prototype in function HB_FUN_TERMINATEPROCESS
Warning W8065 PKILL.prg 18: Call to function 'IF' with no prototype in functio
n HB_FUN_TERMINATEPROCESS
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_PCOUNT' referenced from F:\PKILL.OBJ
Error: Unresolved external '_IF' referenced from F:\PKILL.OBJ
Thank you for your help.
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#define IF(x,y,z) ((x)?(y):(z))
HB_FUNC( TERMINATEPROCESS )
{
hb_retl( TerminateProcess( ( HANDLE ) hb_parnl( 1 ),
IF( hb_pcount() > 1, hb_parni( 2 ), 0 ) ) );
}
#pragma ENDDUMPAntonio:
Everything compiled and linked OK, but I can't get to terminate the program.
PROCEDURE Main
LOCAL hTask
hTask := FindWindow("6.0" )
ALERT("hTask: " + STR(hTask,5), {" Ok "})
TerminateProcess(hTask, 1 )
RETURN
Program that needs to be closed:
...
DEFINE DIALOG oDlg TITLE "6.0"
oDlg:nTop := GetSysMetrics(1) - 250 - 65
oDlg:nLeft := GetSysMetrics(0) - 377 - 10
oDlg:nBottom := GetSysMetrics(1) - 65
oDlg:nRight := GetSysMetrics(0) - 10
...
ACTIVATE DIALOG oDlg
RETURN
Everything compiled and linked OK, but I can't get to terminate the program.
PROCEDURE Main
LOCAL hTask
hTask := FindWindow("6.0" )
ALERT("hTask: " + STR(hTask,5), {" Ok "})
TerminateProcess(hTask, 1 )
RETURN
Program that needs to be closed:
...
DEFINE DIALOG oDlg TITLE "6.0"
oDlg:nTop := GetSysMetrics(1) - 250 - 65
oDlg:nLeft := GetSysMetrics(0) - 377 - 10
oDlg:nBottom := GetSysMetrics(1) - 65
oDlg:nRight := GetSysMetrics(0) - 10
...
ACTIVATE DIALOG oDlg
RETURN
This line should be this way:
TerminateProcess( GetWindowTask( hTask ), 1 )
Antonio:
Now I'm getting the following error:
Error: Unresolved external '_HB_FUN_GETWINDOWTASK' referenced from F:\PKILL.OBJ
Thank you.
Now I'm getting the following error:
Error: Unresolved external '_HB_FUN_GETWINDOWTASK' referenced from F:\PKILL.OBJ
Thank you.
ops,
TerminateProcess( GetWndTask( hTask ), 1 )
Antonio:
Everything compiled & linked ok. The FindWindow function gets the correct hWnd value but the TerminateProcess( GetWndTask( hTask ), 1 ) does not close the application. Any clues ?
Everything compiled & linked ok. The FindWindow function gets the correct hWnd value but the TerminateProcess( GetWndTask( hTask ), 1 ) does not close the application. Any clues ?