本文整理自网络,侵删。
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 datetimepicker 宽度如何与Delphi自带style同步
winapi 字符及字符串函数(1): charlower - 字符或字符串转小写
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
更多相关阅读请进入《Delphi》频道 >>