EOSExtException::EOSExtException(TObjectClassId Kind, const UnicodeString & Msg, intptr_t LastError) : ExtException(Kind, Msg, SysErrorMessageForError(LastError)) { }
UnicodeString LastSysErrorMessage() { return SysErrorMessageForError(GetLastError()); }
EOSExtException::EOSExtException(const UnicodeString & Msg, intptr_t LastError) : ExtException(OBJECT_CLASS_EOSExtException, Msg, SysErrorMessageForError(LastError)) { }
EOSExtException::EOSExtException(const UnicodeString & Msg, int LastError) : ExtException(Msg, SysErrorMessageForError(LastError)) { }