Fehler: "In .....\SetUp.Ini kann nicht geschrieben werden"

**gfjs**

Hallo.

Delphi-Quellcode:

			procedure WriteProgramsToIniFile;

var

  i,j  : integer;

  ini  : TIniFile;

begin

  i := FSetUp.LBoxSetUp.Count;

  for j := 0 to i - 1 do

  begin

    ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + IFN);

if FileExists(ExtractFilePath(Application.ExeName) + IFN) then

ShowMessage('OK') else ShowMessage('MIST');

    try

      ini.WriteString('Programme', FSetUp.LBoxSetUp.Items[j], '');

      ShowMessage(IntToStr(j));

    finally

      ini.Free;

    end;

  end;

end;

Hier passiert folgendes:

Wenn das Programm erstmals gestartet wird - d.h. noch keine Ini-Datei vorhanden ist - wird die Datei erzeugt, Showmessage zeigt "OK" und dann bricht das Programm mit der o.a. Fehlermeldung ab. Die Datei wurde zwar erstellt, ist jedoch leer.

Wird das Programm dann noch einmal gestartet, werden die Einträge in die Datei geschrieben und alles ist gut.

Hat dafür jemand eine Erklärung?

Gruß Jürgen

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

Fehler: "In .....\SetUp.Ini kann nicht geschrieben werden"

Fehler: "In .....\SetUp.Ini kann nicht geschrieben werd

Forumregeln