home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.3 / Program / MAKE.BAS < prev    next >
BASIC Source File  |  1996-07-08  |  918b  |  37 lines
  1. Type Maker
  2.   Dim modList As String
  3.   Sub Make(baseName As String)
  4.     Dim m As ObjectModule
  5.     Dim eboName As String
  6.     m = ModuleManager.LoadModule(".\" & baseName & ".eto", True)
  7.     eboName = baseName & ".ebo"
  8.     m.SaveAs(eboName, False)
  9.     modList = IIf(modList == "", eboName, modList & ";" & eboName)
  10.   End Sub
  11.  
  12.   Sub MakeEnvelop()
  13.     Dim m As ObjectModule
  14.     modList = ""
  15.     Make("base")
  16.     Make("win32")
  17.     Make("dialogs")
  18.     Make("tools")
  19.     Make("database")
  20.     Make("dbtools")
  21.  
  22.     m = ModuleManager.LoadModule(".\envelop.eto", 0)
  23.     Make("options") ' Must come after envelop module is loaded.
  24.  
  25.     Envelop.EXEFileName = ".\envelop.exe"
  26.     Envelop.SplashFileName = "evsplash.bmp"
  27.     Envelop.ModulePath = modList & ";envelop.ebo;evhelp.ebo"
  28.     m.SaveAs("envelop.ebo", False)
  29.     Envelop.WriteEXE
  30.  
  31.   End Sub
  32. End Type
  33.  
  34. Begin Code
  35.   Maker.MakeEnvelop
  36. End Code
  37.