FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 20:49Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Свой обработчик исключений вместо системного
Свой обработчик исключений вместо системного
haavДата: Среда, 11.03.2015, 21:42 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Код
#Include "windows.bi"

Dim Shared As Integer Ptr pPtrSub

Sub EventHandler()
  MessageBox(0,"Ошибка в программе, приложение будет закрыто" ,"Ошибка",0)
  End
End Sub

pPtrSub = Cast(Any Ptr,@EventHandler())

Asm
  push [pPtrSub]
  mov eax,dword ptr FS:[0]
  push eax
  mov dword ptr FS:[0],esp
End Asm

Dim As Integer Ptr pInt = 5
? *pInt


В данной программе я специально пытаюсь получить значение из несуществующего адреса. Я знаю, что есть On Error и On Local Error, которые гораздо удобнее, но так уж попалось на глаза, решил выложить smile


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Свой обработчик исключений вместо системного
  • Страница 1 из 1
  • 1
Поиск: