alle .ini datei in einem bestimmten ordner auflisten

[Balu der Bär]

Delphi-Quellcode:

procedure TMainForm.ListBox1Click(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\data\'+listbox1.Items[Listbox1.ItemIndex]); //Endung .ini sollte schon mit in der Listbox stehen
  try
    Edit1.Text:=ini.ReadString('Zugangsdaten','Benutzername','');
    Edit2.Text:=ini.ReadString('Zugangsdaten','Kennwort','');
  finally
    ini.free;
  end;
end;