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