通过注册表获取当前所有串口号

于 2011-06-16 15:49:00 发布 · 684 阅读

文章标签：

#操作系统 #c/c++ #java

Delphi 专栏收录该内容

60 篇文章

订阅专栏

本文介绍了一种使用Delphi从注册表中读取可用COM端口的方法。通过创建一个函数GetComPorts，可以返回系统中所有串行通信端口的名称。此方法涉及打开注册表项、读取值名并解析端口号。

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons,Registry;

type
TIntArray=Array of Integer;

function TForm1.GetComPorts:TIntArray;
var
reg:TRegistry; // 注: 要引用Registry单元
Namelst:TStrings;
i:integer;
str:AnsiString;
ComPorts:TIntArray;
begin
Namelst:=TStringList.Create;
reg:=TRegistry.Create;
reg.RootKey :=HKEY_LOCAL_MACHINE;
reg.OpenKey('HARDWARE/DEVICEMAP/SERIALCOMM',true);
reg.GetValueNames(Namelst);
SetLength(ComPorts,Namelst.Count);

for i := 0 to Namelst.Count -1 do
begin
str:=reg.ReadString(Namelst[i]);
ComPorts[i]:=StrToInt(Copy(str,4,Length(str)));
end;
reg.CloseKey;
reg.Free;
Namelst.Free;
Result:=ComPorts;

end;