请教有获得鼠标插在哪个串口的函数吗？(50分)

鼠标挂在串口1，用以下函数检测串口1是否空闲。
在WINDOWS2000返回FALSE，检测结果正确，
在WINDOWS98返回FALSE，同时鼠标死。与预期结果不一致。
请教有获得鼠标插在哪个串口的函数吗？
多谢！

function check_serial_port(com_portno :string): boolean;
var
hNewCommFile: THandle;
begin

hNewCommFile := CreateFile( pchar(com_portno),
GENERIC_READ or GENERIC_WRITE,
0, {not shared}
nil, {no security ??}
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,
0 {template} );

if hNewCommFile = INVALID_HANDLE_VALUE then
begin
result := false;
end
else
begin
closehandle(hNewCommFile);
result := true;
end;
end;

已经解决，是双飞燕的驱动程序造成，去掉驱动程序就OK了