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变量可能会包含无效的句柄值。