#include <GuiMenu.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

_Main()

Func _Main()
	Local $hWnd, $hMain, $hFile, $hBrush

	; Запуск блокнота
	Run("notepad.exe")
	$hWnd = WinWaitActive("[CLASS:Notepad]")
	$hMain = _GUICtrlMenu_GetMenu($hWnd)
	$hFile = _GUICtrlMenu_GetItemSubMenu($hMain, 0)

	; Фон выпадающего меню "Файл"
	Writeln('Фон выпадающего меню "Файл": 0x' & Hex(_GUICtrlMenu_GetMenuBackground($hFile)))
	$hBrush = _WinAPI_GetSysColorBrush($COLOR_INFOBK)
	_GUICtrlMenu_SetMenuBackground($hFile, $hBrush)
	Writeln('Фон выпадающего меню "Файл": 0x' & Hex(_GUICtrlMenu_GetMenuBackground($hFile)))

EndFunc   ;==>_Main

; Записывает строку текста в блокнот
Func Writeln($sText)
	ControlSend("[CLASS:Notepad]", "", "Edit1", $sText & @CR)
EndFunc   ;==>Writeln