Hola Aida , cómo estás??
Por qué no pruebas hacer en vez de dos programas enlazar dos archivos de recuros??
O si no otra alternativa es usar dos archivos DLL de recursos, o las que sean necesarias, y en tu main() del sistema haces lo siguiente:
- Code: Select all Expand view
#include "FiveWin.ch"
Function Main()
Local ResH,ResV,oWnd
DEFINE WINDOW oWnd Title "Prueba"
ResH:=oWnd:nHorzRes()
ResV:=oWnd:nVertRes()
IF ResH=800 .AND. RESV=600
SET RESOURCES TO "R800x600.dll"
ENDIF
IF ResH=1024 .AND. RESV=768
SET RESOURCES TO "R1024x768.dll"
ENDIF
ACTIVATE WINDOW oWnd MAXIMIZED
Return nil
Donde en R800x600.dll tendrás todos los recursos que se adaptan a la resolución 800x600 y en R1024x768.Dll los que se adaptan a la resolución 1024x768. Quizá no sea el mejor método pero es solo algo que se me ocurriria hacer para no hacer dos sistemas.
Saludos desde Argentina, Esteban.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda