Fehlermeldung bei Schreiben nach CSIDL_APPDATA

[Bjoerk]

Zitat:

.. ich verstehe nicht genau was Du damit sagen willst.
initialization wird genau einmal ausgeführt.
Wenn mehrere Units einen initialization Abschnitt haben entscheidet die Reihenfolge
in der uses-Klausel darüber wann welcher initialization Abschnitt ausgeführt wird.

Klaus, ich meinte, ob das Applicationsweit gilt, auch z.B. dann, wenn Komponenten, die modale Ereignisse sind und den gleichen initialization Abschnitt benutzen. Wird der dann bei Komp.Execute nocheinmal ausgeführt? Kann ich aber auch durch ein einfaches Showmessage im initialization Abschnitt selbst testen.

Auf alle Fälle erst mal ein kräftiges Dankeschön für deinen Support, auch an Philip.

Jetzt habe ich gesehen, daß mache Programme gleichzeitig gestartet werden und im OnShow Ereignis erst mal kräftig iniDateien lesen, und zwar die selben. Da bleibt wohl nur diese Variante.

Delphi-Quellcode:

procedure Wait (var N: integer);
var
  fTime: Cardinal;
begin
  fTime:=GetTickCount;
  repeat until (GetTickCount-fTime) > 500;
  N:=N+1;
end;

function TStrIniFile.TryOpenFile (var f: TextFile; const fWrite: boolean): boolean;
var
  N,IO: integer;
begin
  N:=0;
  AssignFile(f,FileName);
  if not fWrite then
  begin
    Repeat
      {$I-} Reset(f); {$I+}
      IO:=IOResult;
      if IO<>0 then Wait(N);
    Until ((IO=0) or (N=10));
  end
  else
  begin
    Repeat
      {$I-} Rewrite(f); {$I+}
      IO:=IOResult;
      if IO<>0 then Wait(N);
    Until ((IO=0) or (N=10));
  end;
  RESULT:=(IO=0);
  if not RESULT then
    MessageDlg(Application.ExeName+': '+FileName+' ['+SysErrorMessage(IO)+'].',mtWarning,[mbOk],0);
end;