说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎样得到本机有效串口?

编辑:说三道四文库 发布时间:2017-09-21 04:28
HTML文档下载 WORD文档下载 PDF文档下载
1、讲讲思路也行?
2、我知道好像利用Windows外部函数可以来判断,现在我不知道这两个外部函数的具体用法?有谁能提供API函数使用说明之类的电子文档(jy_1201@eyou.com)
3、或者有无其它好的办法?
procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;

begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('hardware\devicemap\serialcomm',false);
  ts := TStringList.Create;
  reg.GetValueNames(ts);
  for i := 0 to ts.Count -1 do begin
    Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
  end;
  ts.Free;
  reg.CloseKey;
  reg.free;

end;
呵呵,给你一个:
procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;

begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('hardware\devicemap\serialcomm',false);
  ts := TStringList.Create;
  reg.GetValueNames(ts);
  for i := 0 to ts.Count -1 do begin
    Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
  end;
  ts.Free;
  reg.CloseKey;
  reg.free;

end;
用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 在多媒体文件中批量抓取图象-Delphi资料 怎样读出不同格式图形的高和宽-Delphi资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 如果有一个数组,希望所有的对象都能够读取它,而只有一个特别的对象能够修改它,在程序该怎么设计和实现? Datagrid 问题,为什么我按下一页到第二页就翻不下去了? 有效的用户名用正则表达式怎么写? 请问:如何控制for语句的执行时间?? *****上传文件的路径问题?(VB)******** 关于名字空间的问题(online waiting). 在Radhat8.0中如何更改显示器刷新率 intraweb问题 请教用intraweb开发的程序中如何用iwtimer定时 在线等待 小第想考mcse, 希望各位大虾多多支持 Delphi的DLL中是不是? 气疯我了,这句哪错了?update pubOther set value='100',time='2003-4-27 0:00:00' WHERE name='visited' 在对话框界面上的STATIC控件上,用CPaintDC dc(&m_static); 和 pdc = m_static.getdc(); 两种方法得到的dc上画图,为什么在界面刷新时的 需要安装什么防火墙? 我曾见过有些网页中从下面慢慢上升一段文字, 然后又慢慢消失,请问怎样搞的? 急:如何在VB中嵌如FLASH动画? 连接数据库错误,如何解决? 对不起:是VC++与C++.net的区别 比如一个做好的软件,怎么安装到机子上?? ~~~~!!!救火!!!!!!! help!!!! ~~~~!!!救火!!!!!!! 毕业设计求救!!!` 请大虾来帮忙 关于对话框的奇怪问题 该考MCAD还是MCSD for .NET?? 用什么软件播放本机的VOD文件? 请大家讨论!我起这个昵称合不合法!该不该被如此对待! 温度和湿度 急,急,请高手指教!答者再给高分! 温度和湿度 怎么制造更诱人生动的Hint? 关于response.sendRedirect()产生了一个新的session的问题 找不到硬盘了? 如何用vc修改磁盘某些磁道属性 关于全局对象和多线程? 如何将源代码打包? 如何才能使用到adoconnection? 这个计算怎么算呀`` 用ado对象编程,怎么删除所有记录 请问该如何遍这个函数? 如何知道一个应用程序在使用哪些DLL、SYS等文件? 关于修改SQL数据管理员权限的问题 SetBitmapBits的使用方法(内详)谢,送分题 问题:vc#提取acess中时间字段的值不正确。 使用ADO怎样动态修改数据表的字段类型? 如何使存储过程返回结果集 记录集的close问题 做一个在线注册界面遇到的问题 如何重载子窗的最大化功能??? 我建的多文档程序为什么运行时只能打开一个文档阿? 如何调节录音音量 梳理课文情节,依次写出描写出曹操对杨修的态度变化的句子 如何预防沼气池酸化 如何验证醋酸显酸性 怎样去除CO里的CO2 沼气池酸化了,可以用草木灰中和么? Thanks for his______(help) 招聘会的考官提问,造句……请用绿洲、骆驼、梯子、我造句,字数在40以内. 怎么能参加模特大赛,要什么样的条件,什么样的费用, 地方性法规与自治条例、单行条例的异同 非洲的海陆位置如何? 一艘快艇从O港出发,向东北方向行驶到A处,然后南行驶到B处,再向西北方向行驶,共经过3时回到O港.已知快艇的速度是40km/h,问AB这段路程是多少km? 氯原子的质量为a克,那为什么氯原子的摩尔质量为aNA 它的单位不是g除于mol吗 装电扇叶片时螺钉下要垫弹簧垫圈是利用__方法达到__目的 如图 一艘快艇从o港出发,向东北方向行驶到A处,然后西行驶到B处,再向东南方向行驶,共经过2时回到O港.已知快艇的速度是60km/h,问AB这段路程是多少km? 干一件事很容易的歇后语 每顶安全帽的标识由( )组成. 星巴克有什么含义 保温杯有什么牌子?象印的保温杯好吗? 非洲海陆位置 一艘快艇从O港出发,向东北方向行驶到A处,然后向南行驶到B处,再向西北方向行驶,共经过3h回到O港.已知快艇的速度是40km/h,则AB这段路程是多少km? 新丝路少儿模特大赛 可靠吗我参加了保定新丝路大赛 少儿的 初赛交了100 复赛交了100 决赛交了100 现在进了季军 参加河北省的决赛 交300 光交钱 非洲海陆位置特征 如图,一艘快艇从O港出发,向东北方向行驶到A处,然后西行驶到B处,再向东南方向行驶,共经过1时回到O港.已知快艇的速度是60km/h,问AB这段路程是多少km?(精确到0.1km) 少儿模特大赛怎么报名?是新丝路好还是T台之星好? 人类最强大的东西是什么?我感觉是意志精神思想,尽管看了那些就像超人钢铁之躯之类的电影,里面的人类肉体很脆弱,但是大家都互相信任,军队打不过氪星人但仍然充满希望的战斗,毫无畏惧, 一艘快艇从O港出发,向东北方向行驶到A处,然后向西行驶OA,OB各是45度到B处,再向东南方向行驶,共经过1时回到O港,已知快艇的速度是60km/h.问AB这段路程是多少km(精确到0.1km)? 有什么简单点的谚语就几个字 光合作用产生的葡萄糖中的O的来源?真的只有二氧化碳吗? 男生变声期我13岁开始长喉结进入变声期声音开始沙哑,请问什么时候能定型让声音不再这么沙哑?我14岁了学习成绩不怎么样想长大以后当一名歌手但是进入变声期以后我很烦恼到底能不能恢 什么谚语最简单 为什么人类这么强啊? 氨基酸形成什么 一氧化氮能和哪些金属离子络合生成配合离子? 植物若没有光合作用会产生葡萄糖吗?为什么? 由十五种氨基酸组成的蛋白质水解后只能形成十五种氨基酸吗? 铁离子、钠离子、氯离子、硝酸根离子加入硫酸为什么会有一氧化氮产生? 人类最伟大的发明是什么?科技 用盐可以去除衣服上的笔墨吗?我家没有酒精.如果可以,请告诉我具体措施, 试把一内阻为20欧姆,量程为1毫安的电流表改装成量程为10伏的电压表,应串联多大电阻? 我国海陆位置 在每10^5个硅原子掺入一个磷原子,那磷的掺杂浓度是多少?顺便求其电阻率 洋葱的气味熏了我的眼 英语怎么说 塑胶原料TPE成型时表面有花花的条纹是什么原因造成的? 关于道德的作文,题目可以取什么.主要是宣传做一个有道德的人。 漏电保护开关只接零线 他也跳闸?咱家 这里有 三根火线 一根零线!以前接的 那根火线 用的人多.或许别的原因 测量电压只有180到200之间 所有现在换了根火线.以前的漏电开关 零线还是通过开 Thanks的同义句 以利益与道德为话题 作文不少于八百字 议论文 洋葱英文怎么说 thanks 的同义句转换thanks for help me.同义句:thanks( ) ( ) ( )help 芥子气是一种有剧毒的化学物质,它的化学式为C4H8CI2S.53g芥子气约含()个氯原子,这些氯原子的质量( 人体内()到()的重量都是水 Thanks改成同义句是什么? 53克芥子气约含多少个氯原子 人体内什么到什么的重量是水 在一个长为50厘米,宽25厘米的长方体鱼缸中,放入一块不规则的石头后,水深为30厘米……现在把石块取出,水面高度为28厘米,这块石头的体积是多少.要答案和意思 模特大赛评选标准是什么 愁死了,为什么多用电表欧姆表倍率大的档内阻大?倍率大的档内阻大,那么通过表头的电流就应该小啊,指针就偏转小,显示的(读数*大倍率)就应该大;倍率小的档内阻照书上说小,那么通过表 热塑性弹性体属于塑胶吗 沼气池春季酸化如何处理 注射用醋酸曲普瑞林,注射用醋酸曲普瑞林价格,注射用醋酸曲普瑞林哪有卖的,注射用醋酸曲普瑞林说明书 巴塔任命临时首领 巴基斯坦高度警戒印度明日探测火星“变形”却不“金刚”英汉患病被迫宅居欧第四艘运货飞船收官罕见天文奇观“全环食”现身天宇(组图最贵钻石亮相纽约 估价超六千万美元世界关注中国改革决心 三中全会将勾画两名法国记者命丧马里 总统强烈谴责美报鼓吹钓鱼岛归日本 日本内顶外拉中美无人机干掉巴塔头目 巴怒斥其炸死和美妇人送儿子手机前“约法18章” 网古巴政府叫停私营影院 称“不是倒退”[实拍]中国新型“中华神盾舰”吊装导埃及前总统穆尔西出庭受审:从囚徒到总法两名记者在马里遇害 遗体遍布弹孔(美媒爆料日本系美监控对象 目的不仅限各国学校扎堆北京招生(图)俄罗斯严防“黑寡妇”袭击 确保冬奥会祭拜烈士墓 金正恩:“心疼得睡不着觉金正恩参谒牺牲烈士墓地 称心疼得睡不从奥巴马借助大数据成功连任说起网络诈骗判刑不够还罚钱24万人大游行超壮观珠江口19日搜救演习把老百姓关心的事办妥商务之旅白云打击物流寄毒广发银行东莞分行草根跑友也能跑进全运资格赛张鲁一:说到“颜值”有压力“枕边宝”用视频助眠金价短线走势震荡参照模拟考排名合理定志愿梯次美加州华裔财长江俊辉正式宣布参选州长女学生夜独行被强拽上车证件被抢惹一头烟遴选通不过 领导也要挪二三十岁成脱发主力军美完成首例阴茎移植手术佛山,真有“佛山”一季度22地厅级干部被谈话提醒怀孕可降低炎症性肠病的复发率
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘