适用于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

你可能感兴趣的:(2008)