Главная страницаОбратная связьКарта сайта

Заморозить Windows



'Положите на форму элемент CommandButton
'Необходимое предупреждение: после выполнения данного кода компьютер
'полностью блокируется, и перезагрузить его можно только кнопкой Restart на
'вашем компьютере.

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()
Dim freez

freez = SetParent(Me.hWnd, Me.hWnd)
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Заморозить Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info