home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTDDE.PRG < prev    next >
Text File  |  1994-01-16  |  3KB  |  96 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.0 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //
  5. //  Construir con BUILD TestDDE
  6. //----------------------------------------------------------------------------//
  7.  
  8. // Ejemplo de utilización de enlaces DDE
  9. // Para FiveWin los DDE tambien son ¡ Objetos !
  10.  
  11. #include "FiveWin.ch"
  12.  
  13. static oWnd, oDde
  14.  
  15. //----------------------------------------------------------------------------//
  16.  
  17. function Main()
  18.  
  19.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 ;
  20.       TITLE OemToAnsi( "Intercambio dinámico de Datos con FiveWin" );
  21.       MENU BuildMenu()
  22.  
  23.    SET MESSAGE OF oWnd ;
  24.       TO OemToAnsi( "FiveWin 1.0 - (C) A.Linares, F. Pulpón 1993" )
  25.  
  26.    ACTIVATE WINDOW oWnd
  27.  
  28. return
  29.  
  30. //----------------------------------------------------------------------------//
  31.  
  32. function BuildMenu()
  33.  
  34.    local oMenu
  35.  
  36.    MENU oMenu
  37.       MENUITEM "&Dynamic Data Exchange"
  38.       MENU
  39.          MENUITEM "Establecer un enlace DDE"  ACTION StartDDE() ;
  40.             MESSAGE "Vamos a crear un enlace con el Administrador de Programas de Windows"
  41.  
  42.          MENUITEM "Probar el enlace..."       ACTION TestDDE() ;
  43.             MESSAGE "Vamos a decirle que construya un nuevo grupo"
  44.  
  45.          SEPARATOR
  46.  
  47.          MENUITEM "Nos vamos..."              ACTION oWnd:End() ;
  48.             MESSAGE OemToAnsi( "Fín de la demostración" )
  49.       ENDMENU
  50.    ENDMENU
  51.  
  52. return oMenu
  53.  
  54. //----------------------------------------------------------------------------//
  55.  
  56. function StartDDE()
  57.  
  58.    if oDde == nil
  59.       DEFINE DDE oDde SERVICE "Progman" TOPIC "Progman"
  60.       ACTIVATE DDE oDde
  61.       MsgInfo( "Enlace establecido" )
  62.    else
  63.       MsgInfo( "El enlace ya estaba creado..." )
  64.    endif
  65.  
  66. return
  67.  
  68. //----------------------------------------------------------------------------//
  69.  
  70. function TestDDE()
  71.  
  72.    local cGroup := "FiveWin 1.0 - DDE Pruebas"
  73.  
  74.    MsgInfo( "Vamos a crear un nuevo Grupo" + Chr( 13 ) + ;
  75.             "en el Administrador de Programas de Windows" )
  76.  
  77.    MsgInfo( "Esto nos viene estupendo para crearnos, por ejemplo," + ;
  78.             "un instalador de programas" )
  79.  
  80.    oDde:Execute( "[CreateGroup(" + cGroup + ")]" )
  81.  
  82.    oDde:Execute( "[AddItem(" + cGroup + ", Test1 )]" )
  83.    oDde:Execute( "[AddItem(" + cGroup + ", Test2 )]" )
  84.    oDde:Execute( "[AddItem(" + cGroup + ", Test3 )]" )
  85.    oDde:Execute( "[AddItem(" + cGroup + ", Test4 )]" )
  86.    oDde:Execute( "[AddItem(" + cGroup + ", Test5 )]" )
  87.  
  88.    oDde:Execute( "[ShowGroup(" + cGroup + ")]" )
  89.  
  90.    MsgInfo( "Echa un vistazo ahora al Administrador de Programas de Windows" )
  91.    MsgInfo( "Tiene que existir un nuevo grupo..." )
  92.  
  93. return
  94.  
  95. //----------------------------------------------------------------------------//
  96.