dump stacktrace if an exception occurs while running a tool

git-svn-id: trunk@8320 -
This commit is contained in:
vincents 2005-12-14 21:01:43 +00:00
parent b9c2988810
commit a57029a349

View File

@ -365,6 +365,8 @@ begin
end;
except
on e: Exception do begin
DebugLn('TExternalToolList.Run ',lisExtToolFailedToRunTool, ' ', E.Message);
DumpExceptionBackTrace;
Result:=MessageDlg(lisExtToolFailedToRunTool,
Format(lisExtToolUnableToRunTheTool, ['"', Title, '"', #13, e.Message]
),