Найти все пункты меню Создать?
|
|
Пятница, 18 Сентября 2020 г. 16:34
+ в цитатник
^D^ima: Пример обхода ветки реестра, адаптируй под себя
procedure TForm1.Button1Click(Sender: TObject);
var
R:TRegistry;
info:TRegKeyInfo;
str:TStringList;
i:Integer;
begin
Memo1.Lines.Clear;
R:=TRegistry.Create;
R.RootKey:=HKEY_CURRENT_USER;
R.OpenKey('Software',false);
R.GetKeyInfo(info);
Memo1.Lines.Add('Кол-во ключей:'+IntToStr(Info.NumSubKeys));
str:=TStringList.Create;
R.GetKeyNames(str);
for I:=0 to str.Count-1 do
begin
Memo1.Lines.Add(str[i]);
end;
str.Free;
R.Free;
end;
https://forum.sources.ru/index.php?showtopic=419683&view=findpost&p=3839017
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
