WLAN Kieker

[himitsu]

Tipp, du kannst auch ShowException benutzen, damit es mehr wie eine Exception aussieht.

Delphi-Quellcode:

except
  ShowException(ExceptObject, ExceptAddr);
end;

except
  ShowException(ExceptObject, nil);
end;

except
  on E: Exception do begin
    //E.Message := 'Xyz: ' + E.Message;
    ShowException(E, nil);
  end;
end;

except
  Application.HandleException(Self);
end;

except
  on E: Exception do begin
    //E.Message := 'Xyz: ' + E.Message;
    Application.ShowException(E);  sowas ähnliches wie SysUtils.ShowException
  end;
end;

Exceptions, welche von der VCL abgefangen wurden (z.B. wenn es in einem Event knallt), werden von Application.HandleException verarbeitet, mit Application.ShowException angezeigt und falls das mit der Exception-Klasse nicht klar kommt, dann geht es stattdessen an SysUtils.ShowException.

[Garfield]

In den Funktionen sind keine try-except-end oder try-finally-end Blöcke enthalten. Die Systemfunktionen haben bei mir immer einen DWORD-Wert zurückgegeben. Ich sehe mir das mal genauer an.