Перечислить ключи реестраDelphi , ОС и Железо , РеестрПеречислить ключи реестра
Оформил: DeeCo { This example demonstrates how to enumerate all registry keys from a certain key (here: HKEY_CURRENT_USER) } { Dieses Beispiel listet alle Eintrage eines bestimmten Schlussels in der Registrierung auf. (hier: HKEY_CURRENT_USER) } uses Registry; procedure TForm1.Button1Click(Sender: TObject); var indent: Integer; procedure EnumAllKeys(hkey: THandle); var l: TStringList; n: Integer; begin Inc(indent, 2); with TRegistry.Create do try RootKey := hkey; OpenKey(EmptyStr, False); l := TStringList.Create; try GetKeynames(l); CloseKey; for n := 0 to l.Count - 1 do begin memo1.Lines.Add(StringOfChar(' ', indent) + l[n]); if OpenKey(l[n], False) then begin EnumAllKeys(CurrentKey); CloseKey; end; end; finally l.Free end; finally Free; end; Dec(indent, 2); end; begin Memo1.Clear; Memo1.Lines.Add('Keys under HKEY_CURRENT_USER'); indent := 0; Memo1.Lines.BeginUpdate; try EnumAllKEys(HKEY_CURRENT_USER); finally Memo1.Lines.EndUpdate; end; end; Статья Перечислить ключи реестра раздела ОС и Железо Реестр может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |