OnError does not work correctly

[User_Russian]

exe

Code: Select all

Import "Test.lib"
  Proc()
EndImport

Procedure OnErrorProc()
  s.s = ~"Src File:  \t"+GetFilePart(ErrorFile())+#CRLF$+
        ~"Line:  \t"+ErrorLine()+#CRLF$+
        ~"Error: \t"+ErrorMessage()+#CRLF$+
        ~"App: \t\""+GetFilePart(ProgramFilename())+~"\""
  
  MessageRequester("", s, #PB_MessageRequester_Error)
EndProcedure

OnErrorCall(@OnErrorProc())
Proc()
PokeS(1234, "1234")

dll

Code: Select all

Procedure OnErrorProc()
  s.s = ~"Src File:  \t"+GetFilePart(ErrorFile())+#CRLF$+
        ~"Line:  \t"+ErrorLine()+#CRLF$+
        ~"Error: \t"+ErrorMessage()+#CRLF$+
        ~"App: \t\""+GetFilePart(ProgramFilename())+~"\""
  
  MessageRequester("", s, #PB_MessageRequester_Error)
EndProcedure

ProcedureDLL AttachProcess(Instance)
  OnErrorCall(@OnErrorProc())
EndProcedure

ProcedureDLL Proc()
EndProcedure

Error in exe, but OnError worked in dll and pointed to non-existent error in dll.

Src File: dll.pb
Line: 16
Error: Invalid memory access
App: "Test.dll"