Sanek

Как заблокировать главное меню?
Чтобы его вобще нельзя было использовать
(ни с клавы ни с мыши)

VladK

Главное Меню чего?
Если формы, то убери галочку в Enable. Или сделай свойство Enabled = False в коде.

Sanek

Тоесть я хотел сказать про 'панель задач и
меню Пуск'

@slavasl

Это добавляется в Module

Declare Function EnableWindow Lib 'user32' (ByVal hwnd As Long, _
ByVal fEnable As Long) As Long
Declare Function IsWindowEnabled Lib 'user32' (ByVal hwnd As _
Long) As Long
Declare Function GetMenu Lib 'user32' (ByVal hwnd As Long) As Long
Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) _
As Long
Declare Function SystemParametersInfo Lib 'user32' Alias _
'SystemParametersInfoA' (ByVal uAction As Long, ByVal uParam _
As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public TaskBarhWnd As Long
Public IsTaskBarEnabled As Integer
Public TaskBarMenuHwnd As Integer

Это в форму

Public Sub DisableTaskBar()

Dim EWindow As Integer
TaskBarhWnd = FindWindow('Shell_traywnd', '')
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If

End Sub

Public Sub EnableTaskBar()

If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If

End Sub
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Private Sub Command1_Click()
' Set CancelError is True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Set flags
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.DialogTitle = 'dfdf' ' zagolovok okna
CommonDialog1.Filter = 'All Files (*.*)|*.*|Text Files' & _
'(*.txt)|*.txt|Batch Files (*.bat)|*.bat' ' filtr
CommonDialog1.FilterIndex = 2 ' Specify default filter
CommonDialog1.ShowOpen ' Display the Open dialog box
MsgBox CommonDialog1.FileName ' Display name of selected file
Exit Sub

ErrHandler:
'User pressed the Cancel button
Exit Sub

End Sub
Private Sub Command3_Click()
DisableTaskBar
FastTaskSwitching False
End Sub


Private Sub Command4_Click()

EnableTaskBar
FastTaskSwitching True
End Sub

0

@slavasl

Да не забудь в форму поставить 2 кнопки.

0

Sanek

Спасибо, следующий раз можеш не расписывать
что в модуль, что в ...
Я сообразительный ...

Sanek

Спасибо, следующий раз не трать время на расписывание что в модуль, что в ...
Я сообразительный ...
Спасибо