با عرض سلام و درود و تبریک پیشاپیش شب یلدا خدمت عزیزان
بنده با این کد قبلا میتونستم key ها رو از رجیستری بخونم و تو یه لیست بریزم ولی یرای بعضی از مسیر ها این کد کار نمیکنه مثلا برای مسیر زیر این کد کار نمیکنه
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\U SBSTOR
ولی مثلا برای این مسیر کار میکنه HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet
اینم کد
var
i:integer;
reg: TRegistry;
list :TStringlist;
begin
Reg:= TRegistry.Create;
list:= TStringList.Create;
with Reg do
begin
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Enum\USBSTOR',tr ue) then
begin
GetKeyNames(list);
for i:=0 to list.Count-1 do
ListView1.Items.Add.Caption:=list.Strings[i];
CloseKey;
end;
end;
list.Free;
Reg.Free;
end;
از دوستان کسی میدونه مشکل از کجاست؟
اصلا این روش خواندن رجیستری درسته؟