论坛风格切换切换到宽版
  • 2240阅读
  • 3回复

更新包问题 [复制链接]

上一主题 下一主题
离线969511048
 

发帖
151
金钱
1440
威望
144
只看楼主 倒序阅读 0 发表于: 2014-01-13


这段代码出了什么问题为什么没有用到?
离线969511048

发帖
151
金钱
1440
威望
144
只看该作者 1 发表于: 2014-01-13
  1. #define MyAppId "{{FE864FF7-25A5-4317-8458-4F076B2ECFCA}"
  2. #define MyAppName "更新补丁"
  3. [Setup]
  4. AppId={#MyAppId}
  5. AppName={#MyAppName}
  6. AppVersion=1.0
  7. UsePreviousAppDir=yes
  8. DefaultDirName={pf}\{#MyAppName}
  9. Uninstallable=false
  10. OutputDir=d:\My Documents\新建文件夹
  11. Compression=lzma
  12. SolidCompression=yes
  13. DirExistsWarning=no
  14. [Languages]
  15. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
  16. [Files]
  17. Source: "D:\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
  18. [code]
  19. var
  20.   OldPrgInstalled: boolean;
  21.   OldPrgPath: string;
  22. function InitializeSetup(): Boolean;
  23. begin
  24.   Result := true;
  25.   OldPrgInstalled := false;
  26.   if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppId}_is1', 'InstallLocation', OldPrgPath) then
  27.     if FileExists(OldPrgPath+'\System\TacticalOps.exe') then
  28.       OldPrgInstalled := true;
  29. end;
  30. function ShouldSkipPage(PageID: Integer): Boolean;
  31. begin
  32.   result := false;
  33.   if PageID = wpSelectDir then
  34.     result := OldPrgInstalled;
  35. end;
  36. function NextButtonClick(CurPageID: Integer): Boolean;
  37. begin
  38.   Result:= true;
  39.   if (CurPageID = wpSelectDir) and (not FileExists(ExpandConstant('{app}\System\TacticalOps.exe'))) then
  40.     begin
  41.       Result := false;
  42.       MsgBox('你选择的目录没有需要补丁的程序,请选择正确的目录!', mbInformation, MB_OK);
  43.     end;
  44. end;


离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 2 发表于: 2014-01-14
你为什么认为那段代码没有用到?
离线969511048

发帖
151
金钱
1440
威望
144
只看该作者 3 发表于: 2014-01-14
测试就知道呗,我已经解决了,原来我犯了个小错误。。。。
把上面的{#MyAppId}_is1改为{FE864FF7-25A5-4317-8458-4F076B2ECFCA}_is1就行了。上面的{#MyAppId}多了个“{”符合
粗心大意啊