запретить закрытие чужого окна через "X"

[al_gl]

Как запретить в чужом окне выход через нажатие "X " ?

Т.е. как изменить парметры ControlBox чужого окна?

HWND этого окна известно (Можно найти).

[skord]

al_gl

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

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
        ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400&
Public Sub RemoveCloseMenu(frm As Form)
    Dim hSysMenu As Long
    hSysMenu = GetSystemMenu(frm.hwnd, 0)
    Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
    Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Private Sub Form_Load()
RemoveCloseMenu Me
End Sub

Private Sub Комманда1_Click()
Unload Me
End Sub

Это?

[Odrick]

В чужом окне или программе? Если в программе, то hWnd еще нужно найти. Хотя бы с помощью FindWindow и FindWindowEx. А уж потом можно играться с SystemMenu...

[al_gl]

В чужом окне или программе? Если в программе, то hWnd еще нужно найти. Хотя бы с помощью FindWindow и FindWindowEx. А уж потом можно играться с SystemMenu...

Закрыть надо было в чужой программе.

Всё получилось - код, предоставленный skord - помог решить проблему.

[skord]

Всегда рад помочь