DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG
DECLARE FUNCTION GetWindowLong LIB "user.exe" (hWnd%, offset%) AS LONG
DECLARE FUNCTION WinExec LIB "krnl386.exe" (commandLine$, iShow%) AS INTEGER
Declare Function FindWindow Lib "User" (lpClassName$, lpWindowName$) As Integer
Declare Sub SetWindowPos Lib "User" (hWnd As Integer, hWndInsertAfter As Integer, X As Integer, Y As Integer, cx As Integer, cy As Integer, wFlags As Integer)
Declare Function WritePrivateProfileString Lib "krnl386.exe" (lpApplicationName$, lpKeyName$, lpString$, lplFileName$) As Integer
Declare Function SendMessage Lib "User" (hWnd As Long, wMsg As Integer, wParam As Integer, lParam As Any) As Long
Declare Function AddFontResource Lib "GDI" (lpFilename As String) As Integer
''Dialog ID's
CONST WELCOME = 100
CONST WELCOMEX = 150
CONST ASKQUIT = 200
CONST ASKQUITX = 250
CONST DESTPATH1 = 300
CONST DESTPATH1X = 350
CONST DESTPATH2 = 6401
CONST DESTPATH2X = 6451
CONST EXITFAILURE = 400
CONST EXITFAILUREX = 450
CONST EXITQUIT = 600
CONST EXITQUITX = 650
CONST EXITSUCCESS = 700
CONST EXITSUCCESSX = 750
CONST APPHELP = 900
CONST APPHELPX = 950
CONST ALREADYEXISTS = 1000
CONST ALREADYEXISTSX = 1050
CONST TOOBIG = 6300
CONST TOOBIGX = 6350
CONST BADPATH = 6400
CONST BADPATHX = 6450
CONST INFO1 = 109
CONST INFO2 = 6455
CONST INFO2X = 6455
CONST INSTALLVFW = 108
'CONST INFO3X = 6457
'CONST INFO3 = 6458
CONST HDSPACE = 4096000
CONST WS_VISIBLE = &H10000000
CONST WS_CLIPCHILDREN = &H2000000
CONST WS_BORDER = &H800000
CONST SW_SHOWMAXIMIZED = 3
CONST SW_SHOWNORMAL = 1
CONST GWL_STYLE =-16
CONST SWP_SHOWWINDOW = &H40
CONST HWND_BROADCAST = &HFFFF
CONST WM_FONTCHANGE = &H1D
CONST TITLE = "Multimedia Songbook Setup"
CONST LOGO1 = 1
CONST LOGO2 = 1
'GLOBAL SrcDir$
GLOBAL DEST$ ''Default destination directory.
GLOBAL SESDEST$ ''Default Session directory.
GLOBAL RUNDEST$ ''Default Runtime subdirectory.
GLOBAL OPTCUR$ ''Option selection from option dialog.
GLOBAL SCRWID%
GLOBAL PRESPARTDIR$
GLOBAL CUIDLL$
GLOBAL hdList$
GLOBAL hwndBackground As Integer
DECLARE SUB Install
DECLARE SUB CheckInstallVFW
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE SUB CreateProgGroup
DECLARE SUB ShowBackground(hwnd%)
INIT:
CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
