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.
Código COBOL:
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)