[Sintaxis] API - SetForegroundWindow

[Recato53]

Estoy intentando programar una API de Windows 'SetForegroundWindow'.

Algo estoy haciendo mal, no consigo que active una Ventana que se queda en la Barra de Herramientas.

Empleo el siguiente código en PowerCobol 9.

 WORKING-STORAGE SECTION.
    01  S-INDEX      PIC S9(9) COMP-5 VALUE 0.
    01  WINDOWCLASSE BINARY-LONG VALUE ZERO.
    01  HWND         BINARY-LONG.
 
  01 WINDOWNAME    PIC X(60).
 
 PROCEDURE DIVISION.
 
      MOVE "FR-UTIL" TO WINDOWNAME.
 
        COMPUTE S-INDEX = FUNCTION STORED-CHAR-LENGTH(WINDOWNAME).
        ADD 1 TO S-INDEX.
        MOVE X"00"        TO WINDOWNAME(S-INDEX:1). 
             
*************************************************************************
 
      CALL "FindWindowA" WITH STDCALL USING
                              BY VALUE WINDOWCLASSE
                              BY REFERENCE WINDOWNAME
                              RETURNING HWND.
 
*************************************************************************      
      CALL "SetForegroundWindow" WITH STDCALL USING 
                                      BY VALUE HWND.
      
        EXIT PROGRAM.

La variable WINDOWNAME es el formulario que quiero activar.

En las propiedades del script estoy añadiendo la siguiente opción: ALPHAL(WORD)

[Rapinto]

Recato53,

O nome da Window é exactamente o que aparece na barra superior.
Se vires a imagem é:

"FCCID.io-2368817.pdf - Adobe Acrobat Reader DC"

(tens que inclui o nome todo - incluindo espaços)

Se souberes o nome exato da classe é mais fácil pois o nome da classe é sempre igual:
Por exemplo: um documento de WORD tem a ClassName: OpusApp (Depende da versão Office)
uma folha de Excel tem a ClassName: XLMAIN ( depende da versão de Office)
um documento de PDF tem a ClassName: AcrobatSDIWindow (também depende da versão do Acrobat Reader)

Se pretenderes usar a ClassName tens que alterar a Working-Storage, para defenir que vais passar por ClasseName e não por Form Name

Saludos e FELIZ NAVIDAD

Rui Pinto

[Recato53]

Cita del post de Rapinto

Recato53, O nome da Window é exactamente o que aparece na barra superior. Se vires a imagem é: "FCCID.io-2368817.pdf - Adobe Acrobat Reader DC" (tens que inclui o nome todo - incluindo espaços) Se souberes o nome exato da classe é mais fácil pois o nome da classe é sempre igual: Por exemplo: um documento de WORD tem a ClassName: OpusApp (Depende da versão Office) uma folha de Excel tem a ClassName: XLMAIN ( depende da versão de Office) um documento de PDF tem a ClassName: AcrobatSDIWindow (também depende da versão do Acrobat Reader) Se pretenderes usar a ClassName tens que alterar a Working-Storage, para defenir que vais passar por ClasseName e não por Form Name Saludos e FELIZ NAVIDAD Rui Pinto

Pretendo activar un Formulario de Powercobol, que después de un proceso, se queda en la Barra de Herramientas.
¿Como consigo levantar este FORM?.

¡¡¡¡FELIZ NAVIDAD!!!!

[Rapinto]

Recato53,

Experimentei este código e funcionou bem.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 PROCEDURE       DIVISION.
* Minimize current form
    INVOKE POW-SELF "ShowForm" USING POW-SWMINIMIZED.  
* Call another form with no return
    INVOKE pow-self "CallForm" USING "CfForm1".   
*
*   Open normal the minimized form
    INVOKE POW-SELF "ShowForm" USING POW-SWNORMAL.

Não sei se isto resolve o teu problema.

Un saludo e Feliz Navidad
Rui Pinto

[Recato53]

No consigo hacer funcionar las distintas opciones que me proponeis, se sigue quedando el formulario que llama a un proceso en la barra de herramientas.

He partido de una rutina que tienes en POWER+API en la cocina del Foro:
Bring Window to Top (By "Name).

Un saludo. Feliz NAVIDAD.

[Rapinto]

Recato53,

Manda-me um exemplo por Email (ou Mensagem Privada) , para ver se consigo perceber o teu problema.

Não consigo obter a situação que descreves.

Saludos,
Rui