Dim2000
qwerty10 wrote:
> А, как убрать только эту кнопку, а остальные оставить?
Насколько я помню, никак - этого не позволяет Винда (её можно только
задизейблить). Источник искать не буду - лениво .
Posted via ActualForum NNTP Server 1.3
Верно, посему делать надо так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
FUNCTION ulong GetSystemMenu(ulong hWnd, BOOLEAN bRevert) Library "USER32"
FUNCTION boolean DeleteMenu( ulong hMenu, uint uPosition, uint uFlags ) LIBRARY "user32.dll"
FUNCTION boolean DrawMenuBar( ulong hWnd ) LIBRARY "user32.dll"
CONSTANT uint SC_CLOSE = 61536
CONSTANT uint MF_BYCOMMAND = 0
//Open event окна
// Get the window's menu
ULong hMenu, hWnd
hWnd = Handle( this )
hMenu = GetSystemMenu( hWnd, FALSE )
IF hMenu > 0 THEN
// removing the menu items from the system menu
DeleteMenu( hMenu, SC_CLOSE , MF_BYCOMMAND)
// Force immediate menu update
DrawMenuBar( hWnd )
END IF
