本文整理自网络,侵删。
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;
相关阅读 >>
Delphi sendtextmessage 等方便的消息发送函数
winapi 字符及字符串函数(15): charnext、charprev
更多相关阅读请进入《Delphi》频道 >>