Processo/EXE ativo

Joseg · 17.09.2026 18:23

Olá

Como saber en Powercobol se um processo esta ativo?

Gracias
Jose

fastpho · 21.08.2026 18:08

Hola @Joseg , si estas buscando saber si una appxxx.exe esta ejecutandose dos formas :
una con el control ocx ScriptControl

Código COBOL:

 
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 scriptCode1   pic x(500).
 PROCEDURE       DIVISION.
              MOVE SPACES TO scriptCode1.
              string     
                   'Sub MYProgram() ' vbCRLF        
                   ' Set objWMI = GetObject("winmgmts:\.
ootcimv2")' vbCRLF
                   ' Set colProcesses = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = ""ElsisGestion.exe"" ") ' vbCRLF
                   ' If colProcesses.Count = 0 Then' vbCRLF
                   '    MsgBox "El programa no se está ejecutando"' vbCRLF
                   ' Else' vbCRLF
                   '    MsgBox "El programa se está ejecutando"' vbCRLF
                   ' End If'     vbCRLF
                   'End Sub' vbCRLF                                        
                   delimited by size into scriptCode1
              end-string.
 
      INVOKE scriptControl1 "Reset".
      INVOKE scriptControl1 "AddCode" USING scriptCode1.
      INVOKE scriptControl1 "ExecuteStatement" USING "MYProgram".

Otra forma es buscando la ventana del appxxx.exe con api de windows : GetTopWindow , GetWindow , GetWindowTextA

Código COBOL:

 special-names.
        symbolic constant
            gw_hwndfirst    is 0
            gw_hwndnext     is 2
        .
 data division.
 working-storage section.
 01 get-this-window-handle.
        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.
 01 title-bar-index                 pic 9(9)    comp-5  value 0.
 
 01 child-window-handle             pic s9(9)   comp-5  value 0.
 01 parent-window-handle            pic s9(9)   comp-5  value 0.
 
 01 length-of-title-bar-buffer      pic s9(9)   comp-5.
 01 title-bar-buffer-max            pic s9(9)   comp-5.
 01 title-bar-buffer                pic x(1025)         value spaces.               
        
 01 hwnd-type                       pic 9(9)    comp-5. 
            
 01     null-value                      pic s9(9)   comp-5  value 0.
 
 linkage section.
 01 title-bar-string                pic x(1024).
 01 found-window-sw                 pic 9(4)    comp-5.
 01 found-window-handle             pic s9(9)   comp-5.
 01 return-value                    pic s9(9)   comp-5. 
    
 procedure division using title-bar-string, found-window-sw, found-window-handle, return-value. 
        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)
*       
* Let's make sure they passed the title bar string
*
        if title-bar-string not > " " 
            move 1 to return-value
            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
            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 0 to return-value
                    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 0 to return-value
        move 0 to found-window-sw
        move 0 to found-window-handle
        exit program

Saludos ...

Kuk · 19.09.2026 20:11

@Joseg,

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  DWORD       typedef pic s9(9) comp-5.
 01  ULONG_PTR   typedef pic  9(9) comp-5.
 01  LONG        typedef pic s9(9) comp-5.
 01  HANDLE      typedef pic s9(9) comp-5.
 
*>---------------------------------------------
 01  TH32CS_SNAPPROCESS      type DWORD value h"02".
*>---------------------------------------------
 
 01  PROCESSENTRY32.
     05  dwSize              type DWORD.
     05  cntUsage            type DWORD.
     05  th32ProcessID       type DWORD.
     05  th32DefaultHeapID        pointer.
     05  th32ModuleID        type DWORD.
     05  cntThreads          type DWORD.
     05  th32ParentProcessID type DWORD.
     05  pcPriClassBase      type LONG.
     05  dwFlags             type DWORD.
     05  szExeFile           pic x(1000).
     
 01  snapshot                type HANDLE.
 
 01  returnCode              type DWORD.
 
 PROCEDURE       DIVISION.
 
     call "CreateToolhelp32Snapshot" with stdcall using by value TH32CS_SNAPPROCESS
                                                         by value 0
                                                         returning snapshot
     
     move length of PROCESSENTRY32 to dwSize
     
     call "Process32First" with stdcall using by value snapshot
                                              by reference PROCESSENTRY32
                                              returning returnCode
     
     if  returnCode = 0
         call "GetLastError" with stdcall returning returnCode
         
         display "GetLastError: ", returnCode
         
         exit program
     end-if
     
     perform until returnCode = 0
         if  szExeFile(1:8) = "Main.exe" *> resto a nulos
             INVOKE pow-self "DisplayMessage" USING "Bingo!" 64
         end-if
                  
         INVOKE CmList1 "AddString" USING szExeFile
         
         call "Process32Next" with stdcall using by value snapshot
                                                 by reference PROCESSENTRY32
                                                 returning returnCode
     end-perform

Joseg · 17.09.2026 18:23

Muchas gracias a todos por vuestra ayuda.

Eu pretendia fazer isto: https://www.tek-tips.com/threads/set...g-pid.1820890/
Apenas consegui fazer em "C" e Windev. Em anexo o código em "C".

Pero la idea era la siguiente: Con el número PID y no el título de la ventana (el título es dinámico), maximizar un programa de terceros y hacerse visible.

Código CPP:

#include <windows.h>
#include <tlhelp32.h>
#include <iostream>
#include <cstdlib>
 
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam) {
    DWORD processId;
    GetWindowThreadProcessId(hwnd, &processId);
 
    // Verificar se o PID corresponde e se a janela é visível
    if (processId == static_cast<DWORD>(lParam) && IsWindowVisible(hwnd)) {
        // Maximizar e trazer a janela para o primeiro plano
        ShowWindow(hwnd, SW_MAXIMIZE);
        SetForegroundWindow(hwnd);
        return FALSE; // Parar a enumeração
    }
 
    return TRUE; // Continuar a enumeração
}
 
void MaximizeMainApplicationWindow(DWORD pid) {
    EnumWindows(EnumWindowsProc, static_cast<LPARAM>(pid));
}
 
int main(int argc, char* argv[]) {
    if (argc != 2) {
        std::cerr << "Usage: " << argv[0] << " <PID>" << std::endl;
        return 1;
    }
 
    DWORD pid = std::atoi(argv[1]);
    MaximizeMainApplicationWindow(pid);
 
    return 0;
}

Kuk · 19.09.2026 20:11

@Joseg, desde que descubrí cómo hacer funcionar el CALL BY VALUE en PowerCOBOL, absolutamente todo lo que se puede hacer en C, también se puede hacer en PowerCOBOL!

Así que, este código C también se puede convertir en PowerCOBOL!

Joseg · 17.09.2026 18:23

Citación del post de Kuk

❞

@Joseg, desde que descubrí cómo hacer funcionar el CALL BY VALUE en PowerCOBOL, absolutamente todo lo que se puede hacer en C, también se puede hacer en PowerCOBOL!

Así que, este código C también se puede convertir en PowerCOBOL!

Admito que todo es posible ...pero no pude hacerlo, tampoco tengo mucha experiencia en llamadas a la API de WINDOWS.
Por ejemplo, esta función "&& IsWindowVisible(hwnd))" no devolvió el resultado correcto. Debo estar haciendo algo mal.

Código COBOL:

CALL 'IsWindowVisible' USING BY VALUE HWND 
IF RETURN-CODE = 1 
   CALL 'ShowWindow' USING BY REFERENCE HWND, 
                                            BY VALUE 3   *> SW_MAXIMIZE 
   CALL 'SetForegroundWindow' USING BY REFERENCE HWND 
   IF RETURN-CODE = 1 
      DISPLAY "Janela trazida para frente com sucesso."
  ELSE 
      DISPLAY "Falha ao trazer a janela para frente." 
   END-IF 
ELSE 
   DISPLAY "Janela não está visível."
END-IF

José

Kuk · 19.09.2026 20:11

@Joseg, acabo de probarlo y funciona:

Lo primero, creas un fichero nuevo en el directrio del proyecto y lo llamas EnumWindowsProc. Luego lo añades en el proyecto (import) y le pegas el siguiente contenido:

Código COBOL:

 IDENTIFICATION DIVISION.
 PROGRAM-ID. "EnumWindowsProc".
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  SW_MAXIMIZE          PIC S9(9) COMP-5 VALUE 3.
 
 01  P1                   POINTER.
 01  HWND REDEFINES P1    PIC S9(9) COMP-5.
 01  P2                   POINTER.
 01  LPARAM REDEFINES P2  PIC S9(9) COMP-5. 
 
 01  processId            PIC S9(9) COMP-5.
 01  isVisble             PIC S9(9) COMP-5.
 
 LINKAGE SECTION.
 77  PARM1                PIC S9(9) COMP-5.
 77  PARM2                PIC  9(9) COMP-5. 
 
 01  RETURN-VALUE         PIC  9(9) COMP-5. 
 
 PROCEDURE DIVISION WITH STDCALL USING PARM1, PARM2 RETURNING RETURN-VALUE. 
     
     MOVE FUNCTION ADDR(PARM1) TO P1
     MOVE FUNCTION ADDR(PARM2) TO P2
     
     CALL "GetWindowThreadProcessId" WITH STDCALL USING BY VALUE HWND
                                                        BY REFERENCE processId
                                                        
     CALL "IsWindowVisible" WITH STDCALL USING BY VALUE HWND RETURNING isVisble
     
     IF  processId = LPARAM AND 
         isVisble NOT = 0
         CALL "ShowWindow"          WITH STDCALL USING BY VALUE HWND, SW_MAXIMIZE
         CALL "SetForegroundWindow" WITH STDCALL USING BY VALUE HWND
         
         MOVE 0 TO RETURN-VALUE
     
     ELSE
         MOVE 1 TO RETURN-VALUE
     END-IF
     
     GOBACK 
     .

No olvides de añadirle la directiva ALPHAL(WORD) en las propiedades.

Luego desde donde quieras haces algo así (yo lo hago en el evento Click de un botón, recogiendo un PID desde CmText):

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  ptr-EnumWindowsProc    procedure-pointer.
 01  num-ptr redefines ptr-EnumWindowsProc pic s9(9) comp-5.
 
 01  pid         pic s9(9) comp-5.
 PROCEDURE       DIVISION.
 
     move pow-numeric of CmText1 to pid
     
     set ptr-EnumWindowsProc to entry "EnumWindowsProc@8"
     
     call "EnumWindows" with stdcall using by value num-ptr
                                           by value pid

Ya nos cuentas qué tal

Joseg · 17.09.2026 18:23

Perfecto

. Kuk entiendes mucho de esto !!
Gracias.

José

Kuk · 19.09.2026 20:11

@Joseg, de nada, para eso estamos

El problema era que oficialmente Fujitsu COBOL no trabaja con BY VALUE, pero de esta manera "hackeamos" el compilador quitándole este handicap y hacemos funcionar los CALL BY VALUE. Y con esta solución podemos reescribir el Windows por completo si queremos

Kuk · 19.09.2026 20:11

@Joseg, he encontrado otra manera de hacerlo funcionar sin pasar por PROCEDURE-POINTER, lo cual me hace suponer que funcionaría incluso en PowerCOBOL v3 (que no tiene PROCEDURE-POINTER):

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  pid         pic s9(9) comp-5.
 01  hModule     pic s9(9) comp-5.
 01  pAddress    pic s9(9) comp-5.
 
 PROCEDURE       DIVISION.
 
     move pow-numeric of CmText1 to pid
          
     call "GetModuleHandleA" with stdcall using by value h"00" returning hModule
          
     call "GetProcAddress" with stdcall using by value hModule 
                                              by content "_EnumWindowsProc@8" & x"00"
                                              returning pAddress
     
     call "EnumWindows" with stdcall using by value pAddress
                                           by value pid

Funciona perfectamente, lo que pasa es que aquí uso WinAPI para obtener la dirección de la función.

A ver si un día lo pruebo en PowerCOBOL v3, debería funcionar, salvo que haya algún imprevisto.

Otros temas que te pueden interesar
Tema	Autor	Foro	Respuestas	Último post
[Sintaxis] llamar a aplication externa .EXE	hbetancur	NetCOBOL	3	29 de mayo de 2021 11:58
[Sintaxis] Saber si un EXE se esta ejecutando ??	Hrmcobol	PowerCOBOL y WinAPI	1	24 de noviembre de 2020 13:11
[Sintaxis] Compratir variable con un EXE de PowerCOBOL	Recato53	PowerCOBOL (ActiveX, v4 - v11)	10	14 de febrero de 2017 17:18
[Compilador] Fujitsu Cobol for Windows Call EXE	Joseg	NetCOBOL	1	29 de octubre de 2016 23:18
[Compilador] Compilar un Ejecutable (.exe)	Yonaider	RM/COBOL	5	26 de mayo de 2016 09:19

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes


		Archivo - Cobol Foro		Webdesign by: vbdesigns.de		Contactar con Nosotros - Cobol Foro