Click above to get retro games delivered to your door ever month!

// This sample shows how to register an Exe Program.

//----------------------------------------------------------------------------//
//  FiveWin 1.5 - Tutorial ExeReg - Demo
//  (c) A.Linares, F.Pulp.n 1994
//
//  Contruir con BUILD ExeReg
//  To Build:    BUILD ExeReg
//----------------------------------------------------------------------------//

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE OemToAnsi( "FiveWin Exe Registration Program" ) ;
      MENU  BuildMenu()

   SET MESSAGE OF oWnd ;
      TO OemToAnsi( "FiveWin 1.5, (c) A.Linares & F.Pulp.n, 1994" )

   ACTIVATE WINDOW oWnd

return

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Acerca de..." ;
                ACTION MsgInfo( "(C) A.Linares, F.Pulp.n 1993-4", "FiveWin 1.5" ) ;

      MENUITEM "&Salir" ACTION If( MsgYesNo( OemToAnsi( ". Desea terminar la Ejecuci.n ?" ), ;
                                             "Seleccione, por favor" ), ;
                                   oWnd:End,)

      MENUITEM "&Registrar Exe" ACTION RegisterExe()

   ENDMENU

return oMenu

//----------------------------------------------------------------------------//