本文整理自网络,侵删。
procedure TForm1.FormCreate(Sender: TObject);varhCom:THandle;begin//=========================//打开//以读写方式打开com1hCom:=CreateFile(('COM1'),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);//关闭CloseHandle(hcom);end;
相关阅读 >>
Delphi10.3构造一个json数据的第二种方法,并格式化输出
更多相关阅读请进入《Delphi》频道 >>