nbsp; Label1.Caption:=''正在接收数据!'';

end;

  

procedure TForm1.Button4Click(Sender: TObject); // 停止通讯处理

begin

  Label1.Font.Color :=clBlack;

  Label1.Caption:=''infomation'';

  Form1.Caption := IntToStr(ReceiveData);

  Receive :=False;

  CloseHandle(Read_Os.hEvent);

  CloseHandle(Post_Event);

  CloseHandle(hNewCommFile);

  Button1.Enabled :=True;

  Button2.Enabled :=True;

end;

  

end.

  

参考文献

1．Windows95 Windows NT3.5高级编程技术 Jeffrey Richter著

2．基于Windows 95&NT的串行通信编程 李柯 <<微电脑世界>> 1997。5

3．Windows 95中的串行通信 王齐 <<微电脑世界>> 1997。3