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é