alle .ini öffnen

[Basic-Master]

Delphi-Quellcode:

var eIni:TIniFile;
    eRec:TSearchRec;
begin
if FindFirst(ExtractFilePath(Application.ExeName) + '*.ini', faanyfile, eRec) = 0 then begin
  repeat;
    if (eRec.Name <> '.') and (eRec.Name <> '..') then begin
      eIni := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.Name);
      // mach was mit ini...
      eIni.Free;
    end;
  until FindNext(eRec) <> 0;
FindClose(eRec);
end;

suchtest du sowas?