开发过控制短信终端(siemens TC35)发送短信的进(或使用过SPCOMM的)


想用SPCOMM串口通讯控件来开发没想到刚开始就遇到问题,在startComm时遇到错误"Error opening serial port"startcomm源代码是
procedure TForm1.Button2Click(Sender: TObject);
var
   hNewCommFile:   THandle;
begin
     hNewCommFile := CreateFile( PChar('com1'),
                                 GENERIC_WRITE,
                          0,
                          nil,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0 );     if hNewCommFile = INVALID_HANDLE_VALUE then
        raise ECommsError.Create( 'Error opening serial port' );
end;这个错误应该是初始化串口失败了,但找不出原因所在.
=================
我用超级终端则可以控制短信设备,不知是为何?
(没有任何程序占用串口)