Exception-Frage (Exception auslesen)

[Daniel]

Eben bei Facebook gefunden - der universelle Exception-Handler:

Delphi-Quellcode:

try
  ...
except
  on E:Exception do
  begin
    url := 'http://stackoverflow.com/search?q=' + HTTPEncode(E.Message);
    ShellExecute( 0, 'OPEN', PChar(url), '', '', SW_SHOWNORMAL );
  end;
end;