论坛风格切换切换到宽版
  • 2427阅读
  • 1回复

(求助虎版)关于补丁包默认路径的问题 [复制链接]

上一主题 下一主题
离线373723699
 

发帖
38
金钱
380
威望
38
只看楼主 倒序阅读 0 发表于: 2014-06-25
虎版,你好。
我现在有一个小需求不知道如何修改。
就是我下面有一个软件补丁包的代码,默认是自动查询已安装的软件路劲,然后安装。
(我想加入一种情况,就是查询不到已安装软件安装的时候,它会安装到C盘program下面,这个默认地方怎么设置,我想不让他装到那儿。)
代码在下面:

AppId={{7CF7983F-499E-47E9-898B-00FC5C9FE056}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={code:GetPath}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
;OutputDir=H:\D盘暂存\00 work\11 IAP V1.0\10 软件\100 安装包制作\补丁包制作\IAP_SP_V1.1.8.0.24补丁
OutputBaseFilename=IAPcom V2.0.0.3
Compression=lzma
SolidCompression=yes
;新增属性
WindowVisible=yes
VersionInfoVersion=2.0.0.18
VersionInfoCompany=中海创集团
VersionInfoDescription=中海创集团
VersionInfoCopyright=中海创集团
;LicenseFile=License.txt
WizardImageFile=E:\Inno Setup 5\WizModernImage.bmp
WizardSmallImageFile=E:\Inno Setup 5\WizModernSmallImage.bmp

[Languages]
Name: "chinesetraditional"; MessagesFile: "compiler:Languages\Chinese Traditional.isl"
Name: "chinesesimp"; MessagesFile: "compiler:Languages\ChineseSimp.isl"
Name: "english"; MessagesFile: "compiler:Languages\English.isl"

[Files]
Source: "C:\Users\Administrator\Desktop\IAPcom V2.0.0.3\*"; DestDir: "{app}\IAPcom"; Flags: ignoreversion


; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[code]
function GetPath(Param: String): String;
var
  strPath: String;
begin
  strPath := ExpandConstant('{pf}\IAP');
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7CF7983F-499E-47E9-898B-00FC5C9FE056}_is1', 'InstallLocation', strPath) then
  begin
    strPath := ExtractFilePath(strPath);
  end;
  Result := strPath;
end;
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2014-06-25
strPath := ExpandConstant('{pf}\IAP');  // 这里就是默认的安装目录,你可以改成
strPath :='c:\program';