Return to sample3.mst CVS log

Up to [WindowsNT SDKs] / mstools / mssetup

Annotation of mstools/mssetup/sample3.mst, revision 1.1.1.1

1.1       root        1: '**************************************************************************
                      2: '*      MSSetup Toolkit Sample 3  -- Shared Application Installation
                      3: '**************************************************************************
                      4: 
                      5: '$DEFINE DEBUG  ''Define for script development/debugging
                      6: 
                      7: '$INCLUDE 'setupapi.inc'
                      8: '$INCLUDE 'msdetect.inc'
                      9: '$INCLUDE 'msregdb.inc'
                     10: '$INCLUDE 'msshared.inc'
                     11: 
                     12: 
                     13: SetTitle "Shared App Example"
                     14: SetBitmap "mscuistf.dll", 1
                     15: 
                     16: szInf$ = GetSymbolValue("STF_SRCINFPATH")
                     17: IF szInf$ = "" THEN
                     18:     szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE3.INF"
                     19: END IF
                     20: 
                     21: ReadInfFile szInf$
                     22: 
                     23: 
                     24: 
                     25: szSrcDir$ = GetSymbolValue("STF_SRCDIR")
                     26: 
                     27: szShareDir$ = GetWindowsDir()
                     28: IF GetSymbolValue("STF_MODE") = "ADMIN" THEN
                     29:     IF IsWindowsShared = 1 THEN
                     30:         szShareDir$ = GetWindowsSysDir()
                     31:     END IF
                     32: END IF
                     33: 
                     34: 
                     35: szVer$ = GetSectionKeyVersion("Spell Files", "SpellDll")
                     36: SpellDllPath$ = SearchForLocationForSharedFile("", "MS Proofing Tools", "Spelling 1033,0", 1, szShareDir$ + "msapps\proof\msspell.dll", szVer$)
                     37: 
                     38: IF SharedFileNeedsCopying <> 0 THEN
                     39:     SpellDatPath$ = SearchForLocationForSharedFile("", "MS Proofing Tools", "Spelling 1033,0", 2, szShareDir$ + "msapps\proof\mssp_am.lex", "99.99.99.99")
                     40: 
                     41:     AddSpecialFileToCopyList "Spell Files", "SpellDll", szSrcDir$, SpellDllPath$
                     42:     AddSpecialFileToCopyList "Spell Files", "SpellDat", szSrcDir$, SpellDatPath$
                     43: ELSE
                     44:     SpellDatPath$ = SearchForLocationForSharedFile("", "MS Proofing Tools", "Spelling 1033,0", 2, szShareDir$ + "msapps\proof\mssp_am.lex", "0.0.0.0")
                     45: END IF
                     46: 
                     47: 
                     48: szVer$ = GetSectionKeyVersion("Spell Files", "SpellDll")
                     49: CustDictPath$ = SearchForLocationForSharedFile("", "MS Proofing Tools", "Custom Dict 1", 1, szShareDir$ + "msapps\proof\custom.dic", szVer$)
                     50: 
                     51: IF SharedFileNeedsCopying <> 0 THEN
                     52:     AddSpecialFileToCopyList "Dict Files", "CustDict", szSrcDir$, CustDictPath$
                     53: END IF
                     54: 
                     55: 
                     56: szVer$ = GetSectionKeyVersion("Converter Files", "WorksTC")
                     57: WorksTCPath$ = SearchForLocationForSharedFile("", "MS Text Converters", "MSWorksWin", 2, szShareDir$ + "msapps\textconv\wrkswin.cnv", szVer$)
                     58: 
                     59: IF SharedFileNeedsCopying <> 0 THEN
                     60:     AddSpecialFileToCopyList "Converter Files", "WorksTC", szSrcDir$, WorksTCPath$
                     61: END IF
                     62: 
                     63: 
                     64: szVer$ = GetSectionKeyVersion("Draw Files", "MSDraw")
                     65: MSDrawPath$ = SearchForLocationForSharedFile("MSDraw\protocol\StdFileEditing\Server", "Embedding", "MSDraw", 3, szShareDir$ + "msapps\msdraw\msdraw.exe", szVer$)
                     66: 
                     67: IF SharedFileNeedsCopying <> 0 THEN
                     68:     AddSpecialFileToCopyList "Draw Files", "MSDraw", szSrcDir$, MSDrawPath$
                     69: END IF
                     70: 
                     71: 
                     72: szShareDir$ = ""
                     73: szSrcDir$   = ""
                     74: 
                     75: 
                     76: DumpCopyList("SAMPLE3.LOG")
                     77: '' CopyFilesInCopyList   '''' commented out
                     78: 
                     79: 
                     80: 
                     81: sz$ = SpellDllPath$ + "," + SpellDatPath$
                     82: CreateIniKeyValue "WIN.INI", "MS Proofing Tools", "Spelling 1033,0", sz$, cmoOverwrite
                     83: 
                     84: sz$ = CustDictPath$
                     85: CreateIniKeyValue "WIN.INI", "MS Proofing Tools", "Custom Dict 1", sz$, cmoOverwrite
                     86: 
                     87: sz$ = "Works for Windows 2.0," + WorksTCPath$ + ",doc"
                     88: CreateIniKeyValue "WIN.INI", "MS Text Converters", "MSWorksWin", sz$, cmoOverwrite
                     89: 
                     90: 
                     91: '$IFDEF    REG_DB_ENABLED
                     92:     CreateRegKeyValue "MSDraw", "Microsoft Drawing"
                     93:     CreateRegKeyValue "MSDraw\protocol\StdFileEditing\Server", MSDrawPath$
                     94:     CreateRegKeyValue "MSDraw\protocol\StdFileEditing\SetDataFormats", "CF_METAFILEPICT"
                     95:     CreateRegKeyValue "MSDraw\protocol\StdFileEditing\RequestDataFormats", "CF_METAFILEPICT"
                     96: '$ENDIF '' REG_DB_ENABLED
                     97: 
                     98: sz$ = "Drawings from Microsoft Draw, Microsoft Drawing," + MSDrawPath$ + ",picture"
                     99: CreateIniKeyValue "WIN.INI", "Embedding", "MSDraw", sz$, cmoOverwrite
                    100: 
                    101: 
                    102: QUIT:
                    103:     END
                    104: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.