procedure TForm1.Button1Click(Sender: TObject);
var
r: TIniFile;
begin
r := Tinifile.Create('e:\windows\necdev.ini');
listbox1.items.LoadFromFile('e:\windows\necdev.ini');
r.ReadSections(listbox2.items);
r.ReadSection(listbox2.items[0],listbox3.Items);
listbox2.SetFocus;
listbox2.ItemIndex := 0;
r.Free;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
var
r: TIniFile;
begin
r := Tinifile.Create('e:\windows\necdev.ini');
r.ReadSection(listbox2.items[listbox2.ItemIndex],listbox3.Items);
r.Free;
end;
procedure TForm1.ListBox3DblClick(Sender: TObject);
var
r: TIniFile;
s:string;
begin
r := Tinifile.Create('e:\windows\necdev.ini');
s := r.Readstring(listbox2.items[listbox2.ItemIndex],listbox3.Items[listbox3.ItemIndex],'');
showmessage(s);
r.Free;
end;