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