如何检查端口是否在 Inno Setup 中可用？答案

【问题标题】：How to check if port is usable in Inno Setup?如何检查端口是否在 Inno Setup 中可用？
【发布时间】：2014-02-11 12:27:07
【问题描述】：

我需要检查一些端口是否可用？如何在 Inno Setup 中做到这一点？有没有办法在 Inno Setup 中使用套接字？有没有这方面的图书馆？如果有怎么导入使用？

感谢您的回答。

【问题讨论】：

我用 WinSock 写了一个解决方案，但有人删除了这个问题。顺便说一句，这里有很多相同的问题。
解决办法是什么？我应该使用 winsock.dll 吗？
最好的方法是尝试用 Winsock 绑定一个套接字。我见过的所有其他方法都不太可靠。
谢谢，你可以写出来回答。我接受它。
Check on avaiable port using wmi win32 class? 和 Check for available port when installing using inno setup 的可能重复项。

标签： inno-setup pascalscript

【解决方案1】：

您可以使用我的功能来检查端口是否可用：

function CheckPortOccupied(Port:String):Boolean;
var
  ResultCode: Integer;
begin
  Exec(ExpandConstant('{cmd}'), '/C netstat -na | findstr'+' /C:":'+Port+' "', '', 0,
       ewWaitUntilTerminated, ResultCode);
  if ResultCode <> 1 then 
  begin
    Log('this port('+Port+') is occupied');
    Result := True; 
  end
    else
  begin
    Result := False;
  end;
end;

【讨论】：

尽可能避免使用命令行工具。始终更喜欢本机 Windows API 解决方案。在这种情况下，您可以例如尝试绑定到给定端口的套接字并查看它是否失败。
确实如此。我在 4 个月前解决了问题。你的答案是正确的。

【解决方案2】：

返回（在 MsgBox 中）使用端口 80 的服务或程序的函数。如果输出为空，则不会显示 MsgBox。

function NextButtonClick(CurPage: Integer): Boolean;
var
  TmpFileName, ExecStdout: string;
  ResultCode: integer;
begin
  if CurPage = wpWelcome then
  begin
    TmpFileName := ExpandConstant('{tmp}') + '\~pid.txt';
    Exec('cmd.exe',
         '/C FOR /F "usebackq tokens=5 delims= " %i IN (`netstat -ano ^|find "0.0:80"`) DO '
           + '@tasklist /fi "pid eq %i" | find "%i" > "' + TmpFileName + '"', '', SW_HIDE,
         ewWaitUntilTerminated, ResultCode);
    if LoadStringFromFile(TmpFileName, ExecStdout) then
    begin
      MsgBox('Port 80 is used by '#13 + ExecStdout, mbInformation, MB_OK);
    end;
    DeleteFile(TmpFileName);
  end;
  Result := True;
end;

【讨论】：