procedure TForm32.Button1Click(Sender: TObject);
var
reg : TRegistry;
openResult : Boolean;
today : TDateTime;
i : integer;
s: string;
begin
listbox1.clear;
listbox2.clear;
reg := TRegistry.Create(KEY_READ);
reg.RootKey := HKEY_LOCAL_MACHINE;
if (not reg.KeyExists(edit1.text)) then
begin
MessageDlg('Key not found! .',
mtInformation, mbOKCancel, 0);
end
else
begin
MessageDlg('Nalezen! .', mtInformation, mbOKCancel, 0);
openResult := reg.OpenKey(edit1.text,True); // oteviram klic
MessageDlg('Otevřen klíč ' + edit1.text, mtInformation, mbOKCancel, 0);
reg.GetValueNames(listbox1.Items);
for i:=0 to listbox1.Items.Count-1 do
listbox2.items.add(reg.ReadString(listbox1.Items[i]));
reg.CloseKey();
MessageDlg('Zavřen klíč '+ edit1.text, mtInformation, mbOKCancel, 0);
end;
reg.Free;
end;