[Joseg]

❞ Estimados, a todos muchas gracias, Si el tema del cookie, en algún caso lo hemos usado y resuelve bien, Lo mismo lo de las API, de encontrar por el título, Más que nada, capaz que no supe expresarme bien era si había alguna alternativa, cuando tenés un programa que llama a A, este a B, este a C y el útimo intenta llamar a A de nuevo, si había una alternativa de interceptar el Mensaje en inglés, como en Rmcobol, que hay un PROGRMA-STATUS, si el programa llamado da error (incluso si encuentra la dll, por ejemplo) CALL "PROGRAMA1" USING NDET OBLIGA-338 LLAVE-338     ON EXCEPTION CONTINUE END-CALL.

USO ISTO:

 WORKING-STORAGE SECTION.
 01  ALOCALIZAR PIC X(255).
 01  PT1    USAGE IS POINTER.
 01  PT1-A  REDEFINES PT1 PIC S9(9) COMP-5.
 01  PT2    USAGE IS POINTER.
 01  PT2-A  REDEFINES PT2 PIC S9(9) COMP-5.
 01  HWDS   PIC S9(9) COMP-5.
 01  WS01-STR PIC X(100) VALUE SPACES.
 
 PROCEDURE DIVISION.
 
     MOVE SPACES TO ALOCALIZAR WS01-STR.
     MOVE POW-TEXT OF txtJanela TO WS01-STR.
     STRING WS01-STR DELIMITED BY " "
            X"00"  DELIMITED BY SIZE
            INTO ALOCALIZAR.
     MOVE FUNCTION ADDR(ALOCALIZAR)  TO PT1.
     SET PT2 TO NULL.
     CALL "FindWindowA" WITH STDCALL USING BY VALUE PT2-A
                                           BY VALUE PT1-A
                                           RETURNING HWDS.
* achou
     MOVE SPACES TO WS01-STR.
     IF HWDS > 0 
        STRING " SIM, localizou a aberta a JANELA = " DELIMITED BY SIZE 
               ALOCALIZAR DELIMITED BY " "
               INTO WS01-STR
        END-STRING
        MOVE WS01-STR TO POW-TEXT OF txtMensagem
     ELSE 
* nao achou
        STRING " NÃO localizou, na memória a JANELA = " DELIMITED BY SIZE 
               ALOCALIZAR DELIMITED BY " "
               INTO WS01-STR
        END-STRING
        MOVE WS01-STR TO POW-TEXT OF txtMensagem
     END-IF.

Não esquecer de por nas opções de compilação: ALPHAL(WORD)