[Redisych]

Я другой способ нашёл:

Код:

_IEErrorHandlerRegister ("MyErrFunc") ; Устанавливаем перехватчик COM-ошибок
 
; Программа

Func MyErrFunc()
   $ErrorScriptline = $oIEErrorHandler.scriptline
   $ErrorNumber = $oIEErrorHandler.number
   $ErrorNumberHex = Hex($oIEErrorHandler.number, 8)
   $ErrorDescription = StringStripWS($oIEErrorHandler.description, 2)
   $ErrorWinDescription = StringStripWS($oIEErrorHandler.WinDescription, 2)
   $ErrorSource = $oIEErrorHandler.Source
   $ErrorHelpFile = $oIEErrorHandler.HelpFile
   $ErrorHelpContext = $oIEErrorHandler.HelpContext
   $ErrorLastDllError = $oIEErrorHandler.LastDllError
TrayTip("Ошибка " & $ErrorNumber & " в строке " &  $ErrorScriptline, $ErrorDescription & @CRLF  & $ErrorWinDescription & ............................., 5, 3)
    ;SetError(1)
    Return
Endfunc