Cerrar ventana de consola...

[Fito]

Hola Amigos:

Para ciertos procesos me queda muy cómodo hacer display y que me vaya mostrando en la consola. Hay alguna manera de poder decirle por programa que la consola se cierre?

Saludos.

Fito...

[Kuk]

Fito, por programa no se puede.

Puedes intentarlo vía WinAPI, con la función FindWindow y luego pasarle WM_CLOSE por CallWindowProc.

[dmosca]

Kuk buenas tardes.

tambien necesito cerrar la consola, pero no tengo experiencia con WinApi...

por favor podrias explicar como hacer el cierre de consola o donde tengo info para investigar

muchas gracias
saludos

[fastpho]

Buenas voy a subir un ejemplo de como cerrar programas abierto , por ejemplo la calculadora de windows , la idea era para ver si se podia cerrar la consola de cobol , pero al interntar cerrarla fuerza la salida
Special-Name

symbolic constant
gw_hwndfirst is 0
gw_hwndnext is 2
.


Working
*
* You must pass this subroutine 4 parameters:
*
* TITLE-BAR-STRING = PIC X(1024) = The text of the title bar of the window to locate
*
*
* FOUND-WINDOW-SW PIC 9(4) COMP-5 = 0 = Did not find the window
* = 1 = Found the window
*
* FOUND-WINDOW-HANDLE PIC S(9) COMP-5 = If the window is found, this is the handle to it
*
* RETURN-VALUE PIC S9(9) COMP-5 = Success or failure
* = 0 = Normal completion
* = 1 = Did not pass a title bar string
* = 2 = Could not get the handle to this window
* = 3 = Could not get the handle of the first window

01 get-this-window-handle is global.
05 this-window-handle pic s9(9) comp-5 value 0.
05 filler pic x(12) value spaces.

01 title-bar-search-string pic x(1025) value spaces is global.
01 title-bar-index pic 9(9) comp-5 value 0 is global.

01 child-window-handle pic s9(9) comp-5 value 0 is global.
01 parent-window-handle pic s9(9) comp-5 value 0 is global.

01 length-of-title-bar-buffer pic s9(9) comp-5 is global.
01 title-bar-buffer-max pic s9(9) comp-5 is global.
01 title-bar-buffer pic x(1025) value spaces is global.

01 hwnd-type pic 9(9) comp-5 is global.

01 null-value pic s9(9) comp-5 value 0 is global.
*----------
01 title-bar-string pic x(1024) is global external.
01 found-window-sw pic 9(4) comp-5 is global external.
01 found-window-handle pic s9(9) comp-5 is global external.
01 return-value pic s9(9) comp-5 is global external.




WORKING-STORAGE SECTION.
* You must pass this subroutine 4 parameters:
*
* TITLE-BAR-STRING = PIC X(1024) = The text of the title bar of the window to locate
*
*
* FOUND-WINDOW-SW PIC 9(4) COMP-5 = 0 = Did not find the window
* = 1 = Found the window
*
* FOUND-WINDOW-HANDLE PIC S(9) COMP-5 = If the window is found, this is the handle to it
*
* RETURN-VALUE PIC S9(9) COMP-5 = Success or failure
* = 0 = Normal completion
* = 1 = Did not pass a title bar string
* = 2 = Could not get the handle to this window
* = 3 = Could not get the handle of the first window

PROCEDURE DIVISION.
move 0 to return-value
move 0 to found-window-sw
move 0 to found-window-handle

compute title-bar-buffer-max = function length(title-bar-buffer)
MOVE title-bar-string TO "Caption" OF CmStatic1
INVOKE CmStatic1 "Refresh"
* Let's make sure they passed the title bar string
*
if title-bar-string not > " "
move 1 to return-value
INVOKE POW-SELF "CloseForm"
exit program
end-if
*
* Let's get the handle of this window
*
call "GetTopWindow" with STDCALL using
by value null-value
returning this-window-handle
*
* Now, let's find the length of the search string
*
move title-bar-string to title-bar-search-string
perform varying title-bar-index from 1025 by -1
until title-bar-search-string(title-bar-index:1) not = " "
continue
end-perform
*
* Now, let's get the first window
*
move gw_hwndfirst to hwnd-type
call "GetWindow" with STDCALL using
by value this-window-handle
by value hwnd-type
returning child-window-handle
if child-window-handle = 0
move 3 to return-value
INVOKE POW-SELF "CloseForm"
exit program
end-if

move gw_hwndnext to hwnd-type
*
* Now, let's see if this is the target window, if not, loop through all open windows
*
perform until child-window-handle = 0
*
* Let's get the title bar text of this window
*
call "GetWindowTextA" with STDCALL using
by value child-window-handle
by reference title-bar-buffer
by value title-bar-buffer-max
returning length-of-title-bar-buffer *> Note, the length returned does NOT include the NULL byte
*
* If the window has a title bar, is it the one we're looking for?
*
if length-of-title-bar-buffer > 0
if title-bar-search-string(1:title-bar-index) = title-bar-buffer(1:title-bar-index)
move 1 to found-window-sw
move child-window-handle to found-window-handle
move "encontrado" to "Caption" OF CmStatic2
INVOKE CmStatic2 "Refresh"
move 0 to return-value
INVOKE POW-SELF "CloseForm"
exit program
end-if
end-if
*
* Get the next window
*
move child-window-handle to this-window-handle

call "GetWindow" with STDCALL using
by value this-window-handle
by value hwnd-type
returning child-window-handle

end-perform
*
* Didn't find the window
*
move "no encontrado" to "Caption" OF CmStatic2
INVOKE CmStatic2 "Refresh"

move 0 to return-value
move 0 to found-window-sw
move 0 to found-window-handle
INVOKE POW-SELF "CloseForm"
exit program
.



Estas lineas deberian ir en prg que in mi caso se llama findwindow.dll
y lo que hace es buscar el titulo de la ventana a buscar en el parametro title-bar-string
Luego desde otro programa lleno esa variable y en un timer sale a buscar si existe tal programa.
objeto timer coloco estas lineas

move 0 to found-window-sw
move 0 to found-window-handle
move 0 to return-value
* MOVE "Console : PRUEBA" TO title-bar-string
MOVE "Calculadora" TO title-bar-string
INVOKE POW-SELF "OpenForm" USING "FINDWINDOW" "FINDWINDOW.DLL".


if return-value not = 0
* display "Error - FINDWINDOW failed"
move return-value to display-return-value
* display "Return-value = " , display-return-value

EXIT PROGRAM
end-if.
if found-window-sw = 1
display "EL PROGRAMA SE ESTA EJECUTANDO"
display "found-window-handle" , found-window-handle
EXIT PROGRAM

end-if.
if found-window-sw = 0
display "EL PROGRAMA NO SE ESTA EJECUTANDO"
display "found-window-handle" , found-window-handle
EXIT PROGRAM

end-if.

Genero un boton que cierra tal programa

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*private Const SC_CLOSE = &HF060&
*Private Const WM_SYSCOMMAND = &H112
01 null-value pic s9(9) comp-5 value 0 .
PROCEDURE DIVISION.
*cierro el programa

call "SendMessageA" with STDCALL using
by value found-window-handle
by value WM_SYSCOMMAND
by value SC_CLOSE
by value null-value.


Espero haber sido claro ....
Saludos

[dmosca]

:ojo1::ojo1:Gracias por responder

voy a aplicarlo...

informo como resulta.

saludos

---------- Post añadido : 15:34 ---------- Post anterior : 14:43 ----------

1ª consulta

que libreria debo cargar para poder compilar?

[fastpho]

dmosca, La libreria es user32.lib y me olvide de poner el valor
de symbolic constant
SC_CLOSE is 61536
WM_SYSCOMMAND is 274
.

[dmosca]

fastpho: este es el error:

Compile resource C:\Cuadros\Main\Debug\Main.rc ...

Linking C:\Cuadros\Debug\Main.exe ...
Cerrar.obj : error LNK2001: unresolved external symbol _GETWINDOWTEXTA@12
Cerrar.obj : error LNK2001: unresolved external symbol _GETWINDOW@8
Cerrar.obj : error LNK2001: unresolved external symbol _GETTOPWINDOW@4
C:\Cuadros\Debug\Main.exe : fatal error LNK1120: 3 unresolved externals

** The build has failed **

[fastpho]

dmosca, en las opcion de compilacion te debe faltar ALPHAL(WORD)