Roger,
Fiz um pequeno OCX que podes incluir na tua aplicação.
Não testei muito bem (pode ter bugs)
Anexo um exemplo em PowerCobol9
A instrução é muito simples:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 caminho PIC X(256).
01 hwnd PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE HWND OF POW-SELF TO HWND.
INVOKE apppath1 "AppPath" USING hwnd RETURNING caminho.
MOVE caminho TO "CAPTION" OF CMSTATIC1.
Experimenta e diz-me se funcionou para o que pretendias. Funciona para rede ou local.
Se tiveres dúvidas, diz-me. Dá para rede ou maquina local.
Saludos,
Rui Pintop