26 Декабрь 2008

Как вызвать некорректное завершение программы?

Разное |  Таги: ,

Как вызвать некорректное завершение программы?

Option Explicit

Private Declare Sub FatalAppExit Lib "kernel32" _
    Alias "FatalAppExitA" _
    (ByVal uAction As Long, _
    ByVal lpMessageText As String)

Private Sub Form_Load()
FatalAppExit 0, "Впишите сюда любой текст"
End Sub

Запись опубликована on 26.12.2008 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.