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