delphi串口API函数

强制关闭指定端口

var

    hCom:   THandle;com口的handle
//=========================
//打开
//以读写方式打开com1
hCom   :=   CreateFile(( 'COM1 '),   GENERIC_READ   or   GENERIC_WRITE,  
                  0,   nil,   OPEN_EXISTING,0,   0);  
//关闭

CloseHandle(hcom);