home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / EXEREG.PRG < prev    next >
Text File  |  1994-04-11  |  1KB  |  49 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Tutorial ExeReg - Demo
  3. //  (c) A.Linares, F.Pulpón 1994
  4. //
  5. //  Contruir con BUILD ExeReg
  6. //  To Build:    BUILD ExeReg
  7. //----------------------------------------------------------------------------//
  8.  
  9. #include "FiveWin.ch"
  10.  
  11. static oWnd
  12.  
  13. //----------------------------------------------------------------------------//
  14.  
  15. function Main()
  16.  
  17.    DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
  18.       TITLE OemToAnsi( "FiveWin Exe Registration Program" ) ;
  19.       MENU  BuildMenu()
  20.  
  21.    SET MESSAGE OF oWnd ;
  22.       TO OemToAnsi( "FiveWin 1.5, (c) A.Linares & F.Pulpón, 1994" )
  23.  
  24.    ACTIVATE WINDOW oWnd
  25.  
  26. return
  27.  
  28. //----------------------------------------------------------------------------//
  29.  
  30. function BuildMenu()
  31.  
  32.    local oMenu
  33.  
  34.    MENU oMenu
  35.       MENUITEM "&Acerca de..." ;
  36.                 ACTION MsgInfo( "(C) A.Linares, F.Pulp≤n 1993-4", "FiveWin 1.5" ) ;
  37.  
  38.       MENUITEM "&Salir" ACTION If( MsgYesNo( OemToAnsi( "¿ Desea terminar la Ejecución ?" ), ;
  39.                                              "Seleccione, por favor" ), ;
  40.                                    oWnd:End,)
  41.  
  42.       MENUITEM "&Registrar Exe" ACTION RegisterExe()
  43.  
  44.    ENDMENU
  45.  
  46. return oMenu
  47.  
  48. //----------------------------------------------------------------------------//
  49.