+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكننا جلب المفاتيح من الرجستري من مجلد معين؟ (/showthread.php?tid=5177)
كيف يمكننا جلب المفاتيح من الرجستري من مجلد معين؟ - M_Mori2010 - 29-04-2013
السلام عليكم ورحمة الله وبركاته
اذا كان لدينا مفتاح او مجلد وبداخله فاتيح او مجلدات في الرجستري
كيف يمكننا جلب جميع اسماء المجلدات منه ؟
جزاكم الله كل خير
كيف يمكننا جلب المفاتيح من الرجستري من مجلد معين؟ - SMP3 - 30-04-2013
و عليكم السلام
PHP كود :
uses Registry;
procedure EnumSubKeys(RootKey: HKEY; const Key: string;ListBox:TListBox);
var
Registry: TRegistry;
SubKeyNames: TStringList;
Name: string;
begin
Registry := TRegistry.Create;
Try
Registry.RootKey := RootKey;
Registry.OpenKeyReadOnly(Key);
SubKeyNames := TStringList.Create;
Try
Registry.GetKeyNames(SubKeyNames);
for Name in SubKeyNames do
ListBox.Items.Add(Name);
Finally
SubKeyNames.Free;
End;
Finally
Registry.Free;
End;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
EnumSubKeys(HKEY_CURRENT_USER, 'Control Panel',ListBox1);
end;