uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
sl: TStrings;
i: integer;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm', false);
sl := TStringList.Create;
try
reg.GetValueNames(sl);
for i := 0 to sl.Count -1 do
Memo1.Lines.Add(reg.ReadString(sl.Strings[i]));
finally
sl.Free;
end;
finally
reg.CloseKey;
reg.free;
end;
end;
转载于:https://www.cnblogs.com/anykey/archive/2005/11/15/277131.html