使用Inno Setup更新DLL服务器

Question

如果用户第一次安装我的应用程序，我如何构建我的Inno安装脚本以自动注册dll，但如果有一个以前的版本，则取消注册，然后注册新版本（假设界面不同）？

我目前在我的文件部分使用regserver和忽略reversion标志，如下所示：

[Setup]
...

[Languages]
...

[Files]
Source: "C:\example.dll"; DestDir: "{app}"; Flags: ignoreversion regserver

在我的谷歌搜索中，我找到了Un注册表服务器，但我不知道如何将其添加到我的脚本中。我很乐意开始修补以了解它是如何工作的，但我不想做任何会弄乱我的注册表的事情。

这里有一篇类似的文章，但它没有说明这是如何实际完成的。

编辑

在Pascal中进行了黑客攻击之后，我能够将以下内容添加到[Code]部分，并且它起到了作用。有人知道如何使用｛app｝常量在下面的代码中动态定义fileName吗？

[Code]
const
  fileName = 'C:\Program Files\TFolderName\tigercontroller.dll';
var
  serverExists: Boolean;

function InitializeSetup(): Boolean;
begin     
  serverExists := UnregisterServer(False, fileName, False);

  if serverExists then begin
    Result:= True;
    MsgBox('This will update with the most recent version', mbInformation, mb_Ok);
  end else
    Result := True;
end;

Answer 1

试试这个，它还处理32/64位并行COM服务器：

 function UnregisterCOMServer(sServerCLSID: String): Boolean;
var
   sServerPath: String;
Begin
    Result:=False;
     //search in HKCR (merged view)
     if RegQueryStringValue(HKEY_CLASSES_ROOT, 'CLSID\'+sServerCLSID+'\InprocServer32', '', sServerPath) then
     Begin
        if sServerPath<>'' then
        Begin
            Log('Found COM server CLSID:'+ sServerCLSID +', path:'+sServerPath);
            Result:=UnregisterServer(False, sServerPath, True);
            if Result then Log('COM server '+ sServerCLSID +' unregistered.')
            else Log('UnregisterServer on '+ sServerPath +' failed!');
        end
        else Log('No COM server path found.');
     end
     else Log('COM server CLSID:'+ sServerCLSID +' not found!'+sServerPath);
结束;
				


                
 

                
 
            

Answer 2

对文件使用BeforeInstall和AfterInstall参数怎么样？

用法是:

[Files]
Source: "MYDLL.DLL"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall; AfterInstall: MyAfterInstall;

BeforeInstall和AfterInstall函数不能有返回值！

procedure MyBeforeInstall();
begin
  // Your code here: If file (old) file exists call UnregisterServer() on old file
  // Use function FileExists(const Name: String): Boolean; or similar for it
  // Also you can delete the file entirely with function DeleteFile(const FileName: string): Boolean;

  // Hint: You can use 'CurrentFileName' variable to get currently processed file 
end;

procedure MyAfterInstall();
begin
  // Your (new) file was processed and now you can do additional tweaks on it
  // 'CurrentFileName' variable is still available 
  // Setup registers all files with the 'regserver' or 'regtypelib' flags as the last step of installation so in this function the file is still not registered!
end;