为何有时打不开串口？

[guop1977]

运行环境为Win98,我在程序启动组中加入我写的程序，让Windows启动是直接运行我的程序，程序初始化时需要打开串口，可是有时却打不开串口，这是为什么？请高手指教！打开串口程序如下：
bool OpenPort(int Port,int Baud)
{
AnsiString ComName;
HANDLE hComm;
COMMTIMEOUTS commtimeouts={MAXDWORD,0,0,0,0};
DCB dcb;

ComName = "COM" + IntToStr(Port);
hComm = CreateFile(ComName.c_str(), GENERIC_READ|GENERIC_WRITE, 0, NULL,
OPEN_EXISTING, NULL, NULL);
if ( hComm == INVALID_HANDLE_VALUE) return false;

SetCommTimeouts(hComm,&commtimeouts);
dcb.DCBlength = sizeof(DCB);
GetCommState(hComm,&dcb);
dcb.BaudRate = FBaudRate;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT;
SetCommState(hComm,&dcb);
PurgeComm(hComm, PURGE_RXCLEAR | PURGE_TXCLEAR);

return true;

[finnce]

串口被其他程序占用

[kysoft]

同意楼上