;Autor: RASHAD ;http://www.purebasic.fr/english/viewtopic.php?p=462291#p462291 EnableExplicit #CCHILDREN_TITLEBAR = 5 #WM_GETTITLEBARINFOEX = $033F Structure TITLEBARINFOEX cbSize.l rcTitleBar.RECT rgstate.l[#CCHILDREN_TITLEBAR+1] rgrect.RECT[#CCHILDREN_TITLEBAR+1] EndStructure Define TITLEBARINFOEX.TITLEBARINFOEX If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TITLEBARINFOEX\cbSize = SizeOf(TITLEBARINFOEX) SendMessage_(WindowID(0), #WM_GETTITLEBARINFOEX, 0,TITLEBARINFOEX) Debug "Close Button width :"+Str(TITLEBARINFOEX\rgrect[5]\right-TITLEBARINFOEX\rgrect[5]\left) Debug "Close Button height :"+Str(TITLEBARINFOEX\rgrect[5]\bottom-TITLEBARINFOEX\rgrect[5]\top) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0