home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Musical Instruments / Musical-Instruments.iso / msstp / adpcm.inc < prev    next >
Text File  |  1993-08-26  |  1KB  |  40 lines
  1. '**************************************************************************
  2. '*                            ADPCM Setup
  3. '*            include file for Microsoft Multimedia Publishing
  4. '**************************************************************************
  5.  
  6. DECLARE SUB CopyADPCMFiles
  7. DECLARE SUB SetADPCMIniFiles
  8.  
  9. ADPCMFOROPENERS:
  10.     'Make sure the startup for the main script is called INIT.
  11.     GoTo INIT
  12.  
  13.  
  14. SUB CopyADPCMFiles STATIC
  15.  
  16.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  17.     SysDir$ = GetWindowsSysDir()
  18.  
  19.     AddSectionFilesToCopyList "System", SrcDir$, SysDir$
  20.  
  21. END SUB
  22.  
  23.  
  24. SUB SetADPCMIniFiles STATIC
  25.  
  26.     WinDir$ = GetWindowsDir()
  27.  
  28.     If RunningNT() = 0 Then
  29.         If GetIniKeyString( WinDir$ + "system.ini", "drivers", "WaveMapper" ) <> "msacm.drv" Then
  30.             MUSTRESTART$ = "SWITCH"
  31.         ElseIf GetIniKeyString( WinDir$ + "system.ini", "MSACM", "Install" ) <> "msadpcm.acm" Then
  32.             MUSTRESTART$ = "SWITCH"
  33.         End If
  34.  
  35.         CreateIniKeyValue WinDir$ + "system.ini", "drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  36.         CreateIniKeyValue WinDir$ + "system.ini", "MSACM", "Install", "msadpcm.acm", cmoOverwrite
  37.     End If
  38.            
  39. END SUB
  40.