InnoSetup:搜索文件并获取路径

Question

我需要获取autocad的路径，因为我必须在其中编辑一个文本(acad.lsp)。现在，我必须为每个autocad创建n个版本：

'C:\Program Files\AutoCAD 2009\Support\acad.lsp'
'C:\Program Files\Autodesk\AutoCAD 2015\Support\acad.lsp'
'C:\Program Files\Autodesk\AutoCAD 2016\Support\acad.lsp'

诸若此类。

有什么想法吗？谢谢丹尼斯

Answer 1

您需要读取注册表(HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\Rxx.x\ACAD-XXXX:XXX\AcadLocation)：

[..]
var
  Releases: TArrayOfString;
  I: Integer;
  Release: String;
  SubVersions: TArrayOfString;
  SubVersionsIndex: Integer;
  SubVersion: String;
begin
  if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD\', Releases) then
  begin
    for I := 0 to GetArrayLength(Releases) - 1 do
    begin
      Release := Releases[I];
      if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD\' + Release + '\', SubVersions) then
        begin
          for SubVersionsIndex := 0 to GetArrayLength(SubVersions) - 1 do
          begin
            SubVersion := SubVersions[SubVersionsIndex];
            if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD\' + Release + '\' + SubVersion, 'AcadLocation', AcadLocation) then
            begin
            [..]