得到串口

最新推荐文章于 2022-10-20 11:04:05 发布

Channels_net

最新推荐文章于 2022-10-20 11:04:05 发布

阅读量414

点赞数

分类专栏： delphi 文章标签： integer function string

delphi 专栏收录该内容

20 篇文章

订阅专栏

function GetComPortList: TStrings;
var
Reg: TRegistry;
sts1,sts2: TStrings;
i: Integer;
RegPath: string; //×¢²á±íÖÐ´æ·Å´®¿ÚÂ·¾¶
begin
Result := nil;
Reg := TRegistry.Create;
try
    sts1 := TStringList.Create;
    try
      sts2 := TStringList.Create;
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      RegPath := 'hardware/devicemap/SerialComm';
      if Reg.OpenKey(RegPath, False) then
      begin
        Reg.GetValueNames(sts1);
        for i := 0 to sts1.Count-1 do
          sts2.Add(Reg.ReadString(sts1.Strings[i]));
      end;
      Result := sts2;
      sts2 := nil;
    finally
      FreeAndNil(sts1);
    end;
finally
    Reg.CloseKey;
    FreeAndNil(Reg);
end;
end;