适用于Visual Studio 2008下的WTL setup.js文件和用法

适用于Visual Studio 2008下的WTL setup.js文件和用法

国内非常流行的千千静听播放器的UI部分是用WTL做的，WTL做的界面效率比较高而且资源占用比较少。

作者原话:

问：千千静听是用什么语言写的，为什么支持这么多的格式还这么小巧？
    千千静听是用VC6编写的，如果你还知道WTL，那么作者可以告诉你，界面是用WTL来编
写的，相对于MFC的庸肿，WTL更适合编写快速、精简并且占用资源少的程序。当然很多音频
编码库是用C语言来写的，这样更加高效而且小巧。

how to use it in visual studio 2008

1. wtl 8.0 doesn't support visual studio 2008;

2. if you download wtl 8.0, copy and save the code below as setup90.js

// Windows Template Library - WTL version 8.0
// Copyright (C) Microsoft Corporation. All rights reserved.
//
// This file is a part of the Windows Template Library.
// The use and distribution terms for this software are covered by the
// Common Public License 1.0 (http://opensource.org/osi3.0/licenses/cpl1.0.php)
// which can be found in the file CPL.TXT at the root of this distribution.
// By using this software in any fashion, you are agreeing to be bound by
// the terms of this license. You must not remove this notice, or
// any other, from this software.

// Setup program for the WTL App Wizard for VC++ 9.0 (Orcas)

main();

function main()
{
    // Decode command line arguments
    var bDebug = false;
    var bElevated = false;
    var Args = WScript.Arguments;
    for(var i = 0; i < Args.length; i++)
    {
        if(Args(i) == "/debug")
            bDebug = true;
        else if(Args(i) == "/elevated")
            bElevated = true;
    }

    // See if UAC is enabled
    var Shell = WScript.CreateObject("Shell.Application");
    if(!bElevated && Shell.IsRestricted("System", "EnableLUA"))
    {
        // Check that the script is being run interactively.
        if(!WScript.Interactive)
        {
            WScript.Echo("ERROR: Elevation required.");
            return;
        }

        // Now relaunch the script, using the "RunAs" verb to elevate
        var strParams = "\"" + WScript.ScriptFullName + "\"";
        if (bDebug)
            strParams += " /debug";
        strParams += " /elevated";
        Shell.ShellExecute(WScript.FullName, strParams, null, "RunAs");
        return;
    }

    // Create shell object
    var WSShell = WScript.CreateObject("WScript.Shell");
    // Create file system object
    var FileSys = WScript.CreateObject("Scripting.FileSystemObject");

    // Get the folder containing the script file
    var strValue = FileSys.GetParentFolderName(WScript.ScriptFullName);
    if(strValue == null || strValue == "")
        strValue = ".";

    var strSourceFolder = FileSys.BuildPath(strValue, "Files");
    if(bDebug)
        WScript.Echo("Source: " + strSourceFolder);

    if(!FileSys.FolderExists(strSourceFolder))
    {
        WScript.Echo("ERROR: Cannot find Wizard folder (should be: " + strSourceFolder + ")");
        return;
    }

    try
    {
        var strVC9Key = "HKLM\\Software\\Microsoft\\VisualStudio\\9.0\\Setup\\VC\\ProductDir";
        strValue = WSShell.RegRead(strVC9Key);
    }
    catch(e)
    {
        try
        {
            var strVC9Key_x64 = "HKLM\\Software\\Wow6432Node\\Microsoft\\VisualStudio\\9.0\\Setup\\VC\\ProductDir";
            strValue = WSShell.RegRead(strVC9Key_x64);
        }
        catch(e)
        {
            WScript.Echo("ERROR: Cannot find where Visual Studio 9.0 is installed.");
            return;
        }
    }

    var strDestFolder = FileSys.BuildPath(strValue, "vcprojects");
    if(bDebug)
        WScript.Echo("Destination: " + strDestFolder);
    if(!FileSys.FolderExists(strDestFolder))
    {
        WScript.Echo("ERROR: Cannot find destination folder (should be: " + strDestFolder + ")");
        return;
    }

    // Copy files
    try
    {
        var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.ico");
        var strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.ico");
        FileSys.CopyFile(strSrc, strDest);

        strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsdir");
        strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.vsdir");
        FileSys.CopyFile(strSrc, strDest);
    }
    catch(e)
    {
        var strError = "no info";
        if(e.description.length != 0)
            strError = e.description;
        WScript.Echo("ERROR: Cannot copy file (" + strError + ")");
        return;
    }

    // Read and write WTLAppWiz.vsz, add engine version and replace path when found
    try
    {
        var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsz");
        var strDest = FileSys.BuildPath(strDestFolder, "WTLAppWiz.vsz");

        var ForReading = 1;
        var fileSrc = FileSys.OpenTextFile(strSrc, ForReading);
        if(fileSrc == null)
        {
            WScript.Echo("ERROR: Cannot open source file " + strSrc);
            return;
        }

        var ForWriting = 2;
        var fileDest = FileSys.OpenTextFile(strDest, ForWriting, true);
        if(fileDest == null)
        {
            WScript.Echo("ERROR: Cannot open destination file" + strDest);
            return;
        }

        while(!fileSrc.AtEndOfStream)
        {
            var strLine = fileSrc.ReadLine();
            if(strLine.indexOf("Wizard=VsWizard.VsWizardEngine") != -1)
                strLine += ".9.0";
            else if(strLine.indexOf("WIZARD_VERSION") != -1)
                strLine = "Param=\"WIZARD_VERSION = 9.0\"";
            else if(strLine.indexOf("ABSOLUTE_PATH") != -1)
                strLine = "Param=\"ABSOLUTE_PATH = " + strSourceFolder + "\"";
            fileDest.WriteLine(strLine);
        }

        fileSrc.Close();
        fileDest.Close();
    }
    catch(e)
    {
        var strError = "no info";
        if(e.description.length != 0)
            strError = e.description;
        WScript.Echo("ERROR: Cannot read and write WTLAppWiz.vsz (" + strError + ")");
        return;
    }

    // Create WTL folder
    var strDestWTLFolder = "";
    try
    {
        strDestWTLFolder = FileSys.BuildPath(strDestFolder, "WTL");
        if(!FileSys.FolderExists(strDestWTLFolder))
            FileSys.CreateFolder(strDestWTLFolder);
        if(bDebug)
            WScript.Echo("WTL Folder: " + strDestWTLFolder);
    }
    catch(e)
    {
        var strError = "no info";
        if(e.description.length != 0)
            strError = e.description;
        WScript.Echo("ERROR: Cannot create WTL folder (" + strError + ")");
        return;
    }

    // Read and write additional WTLAppWiz.vsdir, add path to the wizard location
    try
    {
        var strSrc = FileSys.BuildPath(strSourceFolder, "WTLAppWiz.vsdir");
        var strDest = FileSys.BuildPath(strDestWTLFolder, "WTLAppWiz.vsdir");

        var ForReading = 1;
        var fileSrc = FileSys.OpenTextFile(strSrc, ForReading);
        if(fileSrc == null)
        {
            WScript.Echo("ERROR: Cannot open source file " + strSrc);
            return;
        }

        var ForWriting = 2;
        var fileDest = FileSys.OpenTextFile(strDest, ForWriting, true);
        if(fileDest == null)
        {
            WScript.Echo("ERROR: Cannot open destination file" + strDest);
            return;
        }

        while(!fileSrc.AtEndOfStream)
        {
            var strLine = fileSrc.ReadLine();
            if(strLine.indexOf("WTLAppWiz.vsz|") != -1)
                strLine = "..\\" + strLine;
            fileDest.WriteLine(strLine);
        }

        fileSrc.Close();
        fileDest.Close();
    }
    catch(e)
    {
        var strError = "no info";
        if(e.description.length != 0)
            strError = e.description;
        WScript.Echo("ERROR: Cannot read and write WTL\\WTLAppWiz.vsdir (" + strError + ")");
        return;
    }

    WScript.Echo("App Wizard successfully installed!");
}

3. remember to copy the wtl include folder to the visual studio include folder and put its directory to the VS project include directory.

i.e.

C:\Program Files\Microsoft Visual Studio 9.0\VC\wtl8\Include