Сообщ. об ошибке

[SeRRg]

У меня немного необычный вопрос:
Можно ли программным путем сделать так, чтобы
показывался синий экран смерти
или еще лучше сообщение об ошибке
(программа выполнила недопустимую...)?
Причем не просто форма, а так, чтобы
вываливался SoftIce, и десять раз
спрашивал, закрыть или нет.
(что соббсно и происходит при
ошибке).

[SeRRg]

Ну вот.
Неужели никто не знает?
Ну подскажите, как на других
языках это сделать хотя б...

[gaidar]

Ох, уж ошибку сгенерить легко - забей память мусором, вызови системные функции вроде CopyMemory.

[hCORe]

В каком-то журнале читал, что есть системная функция (только NT) KeyBugEx, которая генерирует "синий экран" соответственно коду исключения, который задан 2 параметрами (код ошибки и код состояния). Вот так. Только не помню, как ее вызывать

ЗЫ. Поищи в Инете, может информация какая есть

[GSerg]

Попробуй в параметрах компилирования убрать все проверки, а в самой проге дели на ноль или выйди за границы массива. Не знаю, правда, что получится
Гарантированно рушится процесс при кривом сабклассинге, попробуй сделать его

[GSerg]

Чёрт, совсем забыл

Код: Выделить всё

Option Explicit

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
  SelfDestruction
End Sub

Private Sub SelfDestruction()
  CallWindowProc 0, 0, 0, 0, 0
End Sub

[SeRRg]

2GSerg:
Ну вот, это уже горадо лучше .
А точнее, то, что мне надо
Спасибо.

[hCORe]

А у меня с этого кода ничего не происходит при нажатии на Command1. Это нормально

ЗЫ. Мне бы тоже пригодилась такая штука (если честно )

[v-adix]

а у меня тоже ничего не происходит! наверно из-за windows xp...

[hCORe]

Скорее всего именно из-за этого. NT блокирует проблемный код

[_NeoN_]

хммм а кто-нибудь видел синий экран в winXP Я идиот! Убейте меня, кто-нибудь! лично я никогда!!!
То есть видел, но не в процессе работы винды! Его там просто нет! его забыли написать=)

[Tarik]

Специально для тебя