| |
Заблокировать/Разблокировать любое окно в Win95/98/NT |
|
| |
Расположите на форме 2 элемента CommandButton. В коде 'Call DisWin("Form1", ...)' замените "Form1" на требуемое окно. После нажатия на кнопку в данном окне блокируются нажатия на кнопки мыши и клавиатуры. Но вы можете поставить таймер на 20 секунд и вписать в событие Timer1_Timer() код из второй кнопки.
#If Win32 Then
Private Declare Function EnableWindow& Lib "user32" (ByVal hWnd As Long,
ByVal fEnable As Long)
Private Declare Function FindWindow& Lib "user32" Alias
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
#Else
Private Declare Function EnableWindow% Lib "user" (ByVal hWnd As Integer, ByVal
aBOOL As Integer)
Private Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any, ByVal
lpWindowName As Any)
#End If
Function DisWin(WindowName$, EnabOrDisab&) 'EX: Call DisWin("mIRC32", 0)
Dim lFndWnd As Long
Dim lDisEnWnd As Long
lFndWnd = FindWindow(vbNullString, WindowName$) 'Finds the Window Name
lDisEnWnd = EnableWindow(lFndWnd, ByVal EnabOrDisab&) 'Disables all mouse and keyboard
input to the specified window.
'In ByVal EnabOrDisab& you either enter: 0 to Disable Window or 1 to Enable it.
End Function
Private Sub Command1_Click()
Call DisWin("Form1", 0)
End Sub
Private Sub Command2_Click()
Call DisWin("Form1", 1)
End Sub
|
|
| |
|
|
|
|