Interface 部分写
写声明TComStat是什么东西
Type TComStat = record
...
end;
function ClearCommError(hFile:Integer;lpErrors : Cardinal; lpStat : TComStat) : BOOL ; stdcall
Implementation部分写
function ClearCommError;external kernel name "ClearCommError Name in kernel"