02-05-2017, 09:43 PM
وعليكم السلام
هكذا
تحصل على كل Value Name
هكذا
PHP كود :
uses
Registry;
procedure EnumNames(RootKey: HKEY; const Key: string; var Names: TStrings);
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := RootKey;
Registry.OpenKeyReadOnly(Key);
Registry.GetValueNames(Names);
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Names: TStrings;
begin
Names := TStringList.Create;
try
EnumNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Realtek\Network', Names);
Memo1.Lines := Names;
finally
Names.Free;
end;
end;
سبحان الله وبحمده سبحان الله العظيم


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)