在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變量可能會包含無效的句柄值。
