delphi关闭端口的代码怎么写

在Delphi中关闭端口的代码可以使用`CloseHandle`函数来关闭一个已打开的端口。

以下是一个示例代码：

var
  hComPort: THandle;  // 串口句柄

procedure CloseComPort;
begin
  // 关闭端口
  if hComPort <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(hComPort);
    hComPort := INVALID_HANDLE_VALUE;
  end;
end;

此代码会将`hComPort`变量设置为`INVALID_HANDLE_VALUE`，表示端口已关闭。

请注意，在关闭端口之前，需要确保已经通过`CreateFile`函数成功打开了该端口，并将返回的句柄保存在`hComPort`变量中。否则，在关闭端口时，`hComPort`变量可能会包含无效的句柄值。