PureBasic Forums - English

Code: Select all

Procedure IsXEnabled(hWnd)
  mii.MENUITEMINFO
  mii\cbSize=SizeOf(MENUITEMINFO)
  mii\fMask=#MIIM_STATE
  result=999
  GetSystemMenu_(hWnd, #True)
  hSysMenu=GetSystemMenu_(hWnd,#False)
  Debug hSysMenu ; 374605515 (OK)
  If hSysMenu
    info=GetMenuItemInfo_(hSysMenu,#SC_CLOSE, 0, @mii)
    Debug info ; 0 (Failure)
    If info
      result=Bool(mii\fState=#MFS_ENABLED)
    EndIf
  EndIf
  ProcedureReturn result
EndProcedure

hWnd=FindWindow_(0,"Untitled - Notepad") ; "Unbenannt - Editor"  "Untitled - Notepad"
If hWnd=0
  Debug "Please start Notepad manually and run this code TWICE to see the problem!"
Else
  Debug IsXEnabled(hWnd) ; Returns 999 on SECOND run because "info" var is 0 (failed).
EndIf 

Code: Select all

appl$ = "Document - WordPad"

mii.MENUITEMINFO
mii\cbSize=SizeOf(MENUITEMINFO)
mii\fMask=#MIIM_STATE

; Disable Close(#MF_DISABLED not working anymore for Windows 10 because of Alt-F4)
Repeat 
  hWnd=FindWindow_(0,appl$) 
  x + 1
Until hwnd Or x > 5000
If x > 5000
  MessageRequester("Error","Please run the application first",#MB_OK)
  End
EndIf

hSysMenu = GetSystemMenu_(hWnd, #False)
If hSysMenu
  EnableMenuItem_(hSysMenu, #SC_CLOSE, #MF_BYCOMMAND | #MF_GRAYED	)
  DrawMenuBar_(hWnd)
  GetMenuItemInfo_(hSysMenu,#SC_CLOSE, 0, @mii)
  Debug Bool(mii\fState=#MFS_ENABLED)
EndIf

Delay(1000)

;Enable Close
Repeat 
  hWnd=FindWindow_(0,appl$) 
Until hwnd
GetSystemMenu_(hWnd, #True)
hSysMenu = GetSystemMenu_(hWnd,#False)
If hSysMenu
  EnableMenuItem_(hSysMenu, #SC_CLOSE, #MF_BYCOMMAND | #MF_ENABLED)
  DrawMenuBar_(hWnd)
  GetMenuItemInfo_(hSysMenu,#SC_CLOSE, 0, @mii)
  Debug Bool(mii\fState=#MFS_ENABLED)
EndIf

;Refresh the application
Repeat 
  hWnd=FindWindow_(0,appl$)
Until hwnd
GetSystemMenu_(hWnd, #True)
EnableMenuItem_(hSysMenu, #SC_CLOSE, #MF_BYCOMMAND | #MF_ENABLED)
DrawMenuBar_(hWnd)

Code: Select all

Procedure IsXEnabled(hWnd)
  mii.MENUITEMINFO
  mii\cbSize=SizeOf(MENUITEMINFO)
  mii\fMask=#MIIM_STATE
  GetSystemMenu_(hWnd, #True)
  hSysMenu=GetSystemMenu_(hWnd,#False)
  If hSysMenu
    info=GetMenuItemInfo_(hSysMenu,#SC_CLOSE, 0, @mii)
    If info
      result=Bool(mii\fState=#MFS_ENABLED)
    EndIf
  EndIf
  ProcedureReturn result
EndProcedure

Debug IsXEnabled(FindWindow_(0,"Untitled - Notepad")) ; Enables a disabled Close button on Notepad.