Text zu einer Fehlermeldung auslesen.

[Garfield]

Der Debugger von Delphi gibt mir die Fehlermeldung:

Code:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt XY.exe ist eine Exception der Klasse EFCreateError aufgetreten. Meldung: 'Datei "d:\xy.ini" kann nicht erstellt werden. Zugriff verweigert'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------

Wenn ich den Fehler nicht abfange, bekomme ich die selbe Fehlermeldung in der Anwendung:

Code:

---------------------------
XY
---------------------------
Datei "d:\xy.ini" kann nicht erstellt werden. Zugriff verweigert.
---------------------------
OK   
---------------------------

Die INI wird beim Formclose geschrieben. Nach der Fehlermeldung kann die Anwendung nur über den Taskmanager geschlossen werden.

Fange ich den Fehler ab bekomme ich mit
ShowMessage(SysErrorMessage(GetLastError)); nur

Code:

---------------------------
XY
---------------------------
Zugriff verweigert
---------------------------
OK   
---------------------------

Wie kann den Fehler abfangen und die ganze Fehlermeldung anzeigen?

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

[eddy]

Delphi-Quellcode:

var
  errcode : word;

begin

.....

  errcode := GetLastError;
  if errcode <> 0 then begin
    // Fehlercode auswerten 
  end;

.....
end;

[marabu]

Moin,

ich könnte mir vorstellen, dass so das gewünschte Ergebnis zustande kommt:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  try
    with TFileStream.Create('Y:\test.txt', fmCreate) do
      Free;
    ShowMessage('ok');
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Grüße vom marabu

[Garfield]

Zitat von marabu:

ich könnte mir vorstellen, dass so das gewünschte Ergebnis zustande kommt:

Genau das ist es. Habe einiges gefunden, aber immer nur den zweiten Satz erhalten. Danke!

[Luckie]

Der erste Satz ist aus der Exception, die geworfen wird und der zweite Satz ist die Windowsfehlermeldung, warum es fehlgeschlagen ist:

raise Exception.CreateFmt('Datei %s kann nicht erstellt werden. %s', [Filename, SysErrorMessage(GetLastError)];