我正在使用Modular Inno Setup
我正在修改现有的DirectX Detector方法
http://www.vincenzo.net/isxkb/index.php?title=DirectX_-_How_to_detect_DirectX_version
我正在尝试创建一个新产品来安装DirectX 9
这是我到目前为止所拥有的。
//========================================
//detectDirectX.iss
//=======================================
[CustomMessages]
directx_title=DirectX End-User Runtimes (June 2010)
en.directx_size=95.6 MB
de.directx_size=95.6 MB
[Code]
const
directx_url = 'http://download.microsoft.com/download/8/4/A/84A35BF1-DAFE-4AE8-82AF-AD2AE20B6B14/directx_Jun2010_redist.exe';
procedure DecodeVersion( verstr: String; var verint: array of Integer );
var
i,p: Integer; s: string;
begin
// initialize array
verint := [0,0,0,0];
i := 0;
while ( (Length(verstr) > 0) and (i < 4) ) do
begin
p := pos('.', verstr);
if p > 0 then
begin
if p = 1 then s:= '0' else s:= Copy( verstr, 1, p - 1 );
verint[i] := StrToInt(s);
i := i + 1;
verstr := Copy( verstr, p+1, Length(verstr));
end
else
begin
verint[i] := StrToInt( verstr );
verstr := '';
end;
end;
end;
// This function compares version string
// return -1 if ver1 < ver2
// return 0 if ver1 = ver2
// return 1 if ver1 > ver2
function CompareVersion2( ver1, ver2: String ) : Integer;
var
verint1, verint2: array of Integer;
i: integer;
begin
SetArrayLength( verint1, 4 );
DecodeVersion( ver1, verint1 );
SetArrayLength( verint2, 4 );
DecodeVersion( ver2, verint2 );
Result := 0; i := 0;
while ( (Result = 0) and ( i < 4 ) ) do
begin
if verint1[i] > verint2[i] then
Result := 1
else
if verint1[i] < verint2[i] then
Result := -1
else
Result := 0;
i := i + 1;
end;
end;
// DirectX version is stored in registry as 4.majorversion.minorversion
// DirectX 8.0 is 4.8.0
// DirectX 8.1 is 4.8.1
// DirectX 9.0 is 4.9.0
function GetDirectXVersion(): String;
var
sVersion: String;
begin
sVersion := '';
RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\DirectX', 'Version', sVersion );
Result := sVersion;
end;
procedure directX();
var ErrorCode: Integer;
begin
// in this case program needs at least directx 9.0
if CompareVersion2( GetDirectXVersion(), '4.9.0') < 0 then
begin
AddProduct('directx_Jun2010_redist.exe',
'/t:' + ExpandConstant('{tmp}\DirectX') + ' /q /c',
CustomMessage('directx_title'),
CustomMessage('directx_size'),
directx_url,
false, false);
//Is there any way to wait until directx_Jun2010_redist.exe has extracted it self before calling the next line?
ShellExec('open', ExpandConstant('{tmp}\DirectX\DXSETUP.exe'), '/silent', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode)
end;
end;
在[RUN]
下的主设置文件whatever.iss中我收录了该文件。
#include "scripts\products\custom\detectDirectX.iss"
在[CODE]
下的主设置文件whatever.iss中我包含了这种方法
directX();
我遇到的问题是它正在按照它应该下载并将其放在Temp文件夹中。
AddProduct('directx_Jun2010_redist.exe',
'/t:' + ExpandConstant('{tmp}\DirectX') + ' /q /c',
CustomMessage('directx_title'),
CustomMessage('directx_size'),
directx_url,
false, false);
因为我正在使用额外的文件
'/ t：'+ ExpandConstant（'{tmp} \ DirectX'）+'/ q / c'
一旦下载，就会创建一个名为DirectX的文件夹并将所有内容提取到其中。这需要一点点。
直到directx_Jun2010_redist.exe正在提取..
ShellExec('open', ExpandConstant('{tmp}\DirectX\DXSETUP.exe'), '/silent', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode)
被提前调用，文件{tmp} \ DirectX \ DXSETUP.exe尚不存在..所以它不会被调用。
提取完成后，用户点击已安装的完成并删除Temp文件夹。
有没有办法解决这个问题，以便在directx_Jun2010_redist.exe解压缩文件之后，它可以在安装程序完成之前运行DXSETUP.exe？
答案 0 :(得分：2)
好吧我觉得我终于让它工作正常了......我不得不把事情搞砸了一下......似乎有些事情在启动时被调用但实际上并没有被激活它们直到后来才被调整。考虑到这一点，我能够解决这个问题。这是代码。
在主setupfile.iss中，在 [RUN]
下添加以下内容Filename: "{tmp}\DirectX\DXSETUP.exe"; WorkingDir: "{tmp}\DirectX"; Parameters: "/silent"; Check: checkDirectX; Flags: waituntilterminated;
#include "scripts\products\custom\detectDirectX.iss"
同样在您的主setupfile.iss中，在 [Code]
下添加以下内容directX();
以下是detectDirectX.iss
的代码[CustomMessages]
directx_title=DirectX End-User Runtimes (June 2010)
en.directx_size=95.6 MB
de.directx_size=95.6 MB
[Code]
const
directx_url = 'http://download.microsoft.com/download/8/4/A/84A35BF1-DAFE-4AE8-82AF-AD2AE20B6B14/directx_Jun2010_redist.exe';
procedure DecodeVersion( verstr: String; var verint: array of Integer );
var
i,p: Integer; s: string;
begin
// initialize array
verint := [0,0,0,0];
i := 0;
while ( (Length(verstr) > 0) and (i < 4) ) do
begin
p := pos('.', verstr);
if p > 0 then
begin
if p = 1 then s:= '0' else s:= Copy( verstr, 1, p - 1 );
verint[i] := StrToInt(s);
i := i + 1;
verstr := Copy( verstr, p+1, Length(verstr));
end
else
begin
verint[i] := StrToInt( verstr );
verstr := '';
end;
end;
end;
// This function compares version string
// return -1 if ver1 < ver2
// return 0 if ver1 = ver2
// return 1 if ver1 > ver2
function CompareDirectXVersion( ver1, ver2: String ) : Integer;
var
verint1, verint2: array of Integer;
i: integer;
begin
SetArrayLength( verint1, 4 );
DecodeVersion( ver1, verint1 );
SetArrayLength( verint2, 4 );
DecodeVersion( ver2, verint2 );
Result := 0; i := 0;
while ( (Result = 0) and ( i < 4 ) ) do
begin
if verint1[i] > verint2[i] then
Result := 1
else
if verint1[i] < verint2[i] then
Result := -1
else
Result := 0;
i := i + 1;
end;
end;
// DirectX version is stored in registry as 4.majorversion.minorversion
// DirectX 8.0 is 4.8.0
// DirectX 8.1 is 4.8.1
// DirectX 9.0 is 4.9.0
function GetDirectXVersion(): String;
var
sVersion: String;
begin
sVersion := '';
RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\DirectX', 'Version', sVersion );
Result := sVersion;
end;
function checkDirectX(): boolean;
begin
// in this case program needs at least directx 9.0
if CompareDirectXVersion( GetDirectXVersion(), '4.9.0') < 0 then
begin
Result := true;
end
else
begin
Result := false;
end;
end;
procedure directX();
begin
// in this case program needs at least directx 9.0
if CompareDirectXVersion( GetDirectXVersion(), '4.9.0') < 0 then
begin
AddProduct('directx_Jun2010_redist.exe',
'/t:' + ExpandConstant('{tmp}\DirectX') + ' /q /c',
CustomMessage('directx_title'),
CustomMessage('directx_size'),
directx_url,
false, false);
end;
end;
我希望这有助于其他人..整个想法是我可以运送我的软件而不用担心DirectX，至少我的软件需要DirectX 9一些XP用户可能没有更新他们的机器..或者有些可能有在vista或7上删除了它，Windows 8开箱即用，更新版本，所以不用担心。