delphi 检查端口是否被占用

在 Delphi 中，你可以使用 `TServerSocket` 或 `TClientSocket` 组件来检查端口是否被占用。

以下是使用 `TServerSocket` 组件检查端口是否被占用的示例代码：

uses
  ScktComp;

function IsPortInUse(port: Integer): Boolean;
var
  socket: TServerSocket;
begin
  Result := False;
  socket := TServerSocket.Create(nil);
  try
    socket.Port := port;
    socket.Open;
  except
    Result := True;
  end;
  socket.Close;
  socket.Free;
end;

使用此函数，你可以检查指定的端口是否被占用。如果端口被占用，返回 `True`；否则，返回 `False`。

希望能帮助你！