diff options
Diffstat (limited to 'src/ultrastardx.dpr')
| -rw-r--r-- | src/ultrastardx.dpr | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/ultrastardx.dpr b/src/ultrastardx.dpr index 0523f818..2280d4c6 100644 --- a/src/ultrastardx.dpr +++ b/src/ultrastardx.dpr @@ -350,7 +350,17 @@ uses SysUtils; +const + sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} + {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF}; begin - Main; + try + Main; + except + on E : Exception do + begin + ShowMessage('Exception class name = '+E.ClassName+sLineBreak+'Exception message = '+E.Message); + end; + end; end. |