如何使用 Inno Setup 根據註冊表項選擇在文件夾中安裝插件/文件？ (How do I use Inno Setup to optionally install a plugin/file in a folder based on a registry entry?)

問題描述

如何使用 Inno Setup 根據註冊表項選擇在文件夾中安裝插件/文件？ (How do I use Inno Setup to optionally install a plugin/file in a folder based on a registry entry?)

Inno Setup 是一個很好用的安裝程序。它在 this stackoverflow question 中的評分很高. 我需要將插件安裝到與 3rd 方應用程序的安裝文件夾相關的文件夾中。從文檔中看如何做到這一點並不明顯。

參考解法

方法 1:

You can find the answer to how to optionally install a file using a registry entry in the documentation and in sample code but it may not be obvious so here is some example script snippets using an Adobe Premiere Plugin as an example:

The keys steps are:

1) use the Check: parameter

2) Write a function that calls RegQueryStringValue and parse the path to construct the relative plugin folder destination

3) use {code:} to call a function to return the destination folder

//
// Copy my plugin file to the Premiere Plugin folder, but only if Premiere is installed.
//
[Files]
Source: "C:\sourceFiles\myplugin.prm";  Check: GetPremierePluginDestination; DestDir: "{code:PluginDestination}"; Flags: ignoreversion overwritereadonly

[Code]

var sPluginDest : String;

//
// Search for the path where Premiere Pro was installed.  Return true if path found.
// Set variable to plugin folder
//

function GetPremierePluginDestination(): Boolean;
var
  i:      Integer;
  len:    Integer;

begin
  sPluginDest := '';

  RegQueryStringValue( HKLM, 'SOFTWARE\Adobe\Premiere Pro\CurrentVersion', 'Plug‑InsDir', sPluginDest );
  len := Length(sPluginDest);
  if len > 0 then
  begin
    i := len;
    while sPluginDest[i] <> '\' do
      begin
        i := i‑1;
      end;

    i := i+1;
    Delete(sPluginDest, i, Len‑i+1);
    Insert('Common', sPluginDest, i);
  end;
  Result := len > 0;
end;

//
//  Use this function to return path to install plugin
//
function PluginDestination(Param: String) : String;
begin
   Result := sPluginDest;
end;

I'm not a Pascal programmer so any suggestions on making GetPremiereDestination more efficient are welcome.

(by AlanKley、AlanKley)

參考文件

1. How do I use Inno Setup to optionally install a plugin/file in a folder based on a registry entry? (CC BY‑SA 2.5/3.0/4.0)