Begoguay, ¡ya tengo solución a tu problema!!!
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HWND-DC PIC S9(9) COMP-5.
01 DPI PIC S9(9) COMP-5.
PROCEDURE DIVISION.
CALL "GetDC" WITH STDCALL USING BY VALUE 0
RETURNING HWND-DC
CALL "GetDeviceCaps" WITH STDCALL USING BY VALUE HWND-DC
BY VALUE 88
RETURNING DPI.
CALL "ReleaseDC" WITH STDCALL USING BY VALUE 0
BY VALUE HWND-DC
INVOKE POW-SELF "DisplayMessage" USING DPI "DPI" 64
Si te devuelve
DPI=96, entonces está por defecto, o sea 100%.
Necesitas:
Ambas en adjuntos
