Delphi读取本机存在的串口

时间：2011-03-10 来源：e0827

1.uses2.Registry;
3.4.procedure TForm1.Button1Click(Sender: TObject);
5.var
6.reg : TRegistry;
7.sl: TStrings;
8.i: integer;
9.begin
10.reg := TRegistry.Create;
11.try12.    reg.RootKey := HKEY_LOCAL_MACHINE;
13.    reg.OpenKey('hardware\devicemap\serialcomm', false);
14.    sl := TStringList.Create;
15.    try16.      reg.GetValueNames(sl);
17.      for i := 0 to sl.Count -1 do
18.        Memo1.Lines.Add(reg.ReadString(sl.Strings[i]));
19.    finally20.      sl.Free;
21.    end;
22.finally23.    reg.CloseKey;
24.    reg.free;
25.end;
26.end;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/yinsekoushao/archive/2008/11/03/3208116.aspx

相关阅读更多 +