|
|
@@ -208,13 +208,7 @@ begin |
|
|
|
empty := true; |
|
|
|
except |
|
|
|
on e: Exception do begin |
|
|
|
utlLogger.Error(self, 'error while progressing message %s(ID: %d; wParam: %s; lParam: %s): %s - %s', [ |
|
|
|
m.ClassName, |
|
|
|
m.ID, |
|
|
|
IntToHex(m.wParam, SizeOf(m.wParam) div 4), |
|
|
|
IntToHex(m.wParam, SizeOf(m.wParam) div 4), |
|
|
|
e.ClassName, |
|
|
|
e.Message]); |
|
|
|
utlLogger.Error(self, 'error while progressing message: %s - %s', [e.ClassName, e.Message]); |
|
|
|
end; |
|
|
|
end; |
|
|
|
until empty; |
|
|
|