如何使用 INNO 安装程序检测现有的 IIS 安装？

发布于 2024-10-03 09:53:39 字数 510 浏览 5 评论 0原文

我正在寻找一种方法来确定用户是否已经安装了 IIS 版本。如果他不这样做，我将继续运行我的 IIS 安装脚本。

我知道我所做的异常处理子句：

  try
    IIS := CreateOleObject('IISNamespace');  
  except  
    RaiseException(ExceptionType, ‘IIS not installed. Setup will now install IIS on your machine. ’#13#13'(Error ‘’’+ExceptionParam+’’’ occured)’);  
  end;

但由于某种原因，我的编译器版本似乎无法识别 RaiseException。我也尝试过包含

uses  
SysUtils;

，但编译器甚至无法识别 SysUtils。是否有类似注册表项之类的东西，我可以通过查看来确定 IIS 是否已安装？
任何帮助将不胜感激。

原文

I am looking for a way to determine if the user already has a version of IIS installed. If he doesn't, I will go ahead and run my IIS installation script.

I know of the exception handling clause where I do :

  try
    IIS := CreateOleObject('IISNamespace');  
  except  
    RaiseException(ExceptionType, ‘IIS not installed. Setup will now install IIS on your machine. ’#13#13'(Error ‘’’+ExceptionParam+’’’ occured)’);  
  end;

but for some reason, my compiler version doesn't seem to recognise RaiseException. I also tried including

uses  
SysUtils;

but the compiler won't recognize SysUtils even. Is there something like a registry key that I can look at to determine whether IIS is already installed or not?
Any help would be much appreciated.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

甜心 2024-10-10 09:53:39

Rishi 您正在使用带有 2 个参数的 RaiseException 函数，但该函数仅支持一个。

procedure RaiseException(const Msg: String);

尝试像这样使用这个函数

var
 IIS : variant;
begin    
  try
    IIS := CreateOleObject('IISNamespace');
  except
    RaiseException('IIS not installed. Setup will now install IIS on your machine');
  end;
end;

Rishi you are using the RaiseException function with 2 parameters, but the this function only support one.

procedure RaiseException(const Msg: String);

try using this function like this

var
 IIS : variant;
begin    
  try
    IIS := CreateOleObject('IISNamespace');
  except
    RaiseException('IIS not installed. Setup will now install IIS on your machine');
  end;
end;

回复收藏 0 原文

末が日狂欢 2024-10-10 09:53:39

IIS 始终安装到 %windir%\system32\inetsrv，因此您应该检查此目录下是否存在特定文件。例如，对于 IIS 6/7，w3wp.exe 应存在于该文件夹中。

回复收藏 0 原文

救星 2024-10-10 09:53:39

尝试：

[CustomMessages]
iis_title=Internet Information Services (IIS)


[Code]
function iis(): boolean;
begin
    if not RegKeyExists(HKLM, 'SYSTEM\CurrentControlSet\Services\W3SVC\Security') then
        MsgBox(FmtMessage(CustomMessage('depinstall_missing'), [CustomMessage('iis_title')]), mbError, MB_OK)
    else
        Result := true;
end

;

Try:

[CustomMessages]
iis_title=Internet Information Services (IIS)


[Code]
function iis(): boolean;
begin
    if not RegKeyExists(HKLM, 'SYSTEM\CurrentControlSet\Services\W3SVC\Security') then
        MsgBox(FmtMessage(CustomMessage('depinstall_missing'), [CustomMessage('iis_title')]), mbError, MB_OK)
    else
        Result := true;
end

;

回复收藏 0 原文

~没有更多了~