INI lesen vor Application.Run

[Popov]

Sollte aber gehen. Hier ein Beispiel das funktioniert:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  SysUtils,
  Dialogs,
  IniFiles;

{$R *.RES}
var
  Config: TIniFile;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  Config := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    ShowMessage(Config.ReadString('Sektion', 'Schluessel', '++Fehler++'));
  finally
    Config.Free;
  end;

  Application.Run;
end.

Project1.ini

Code:

[Sektion]
Schluessel = Testwert

EDIT:

Übrigens, ExtractFilePath extrahiert den Pfad und behält den Backslash "\". ExtractFileDir extrahiert den Pfad ohne den Backslash. Das ist immer so. Du hast also schon an der stelle einen Fehler, denn dein Pfad ist falsch. Es gibt also keine Ini.