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

原创于 2011-06-16 15:49:00 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #forms #windows

Delphi 专栏收录该内容

60 篇文章

订阅专栏

本文提供了一个使用Delphi语言获取Windows系统串口列表的方法，通过注册表操作实现了串口信息的读取，并展示了具体实现代码。

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;