#Include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form_Gui = GUICreate("Мой GUI",

Question

#Include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form_Gui = GUICreate("Мой GUI",

179, 74, 787, 525, $WS_POPUP) ; Создаёт окно в углу экрана (ширина свободного места = 240)

;GUICtrlSetDefBkColor(0xC6C3C6) ; устанавливает цвет кнопок
GUISetBkColor(0xC6C3C6) ; устанавливает цвет фона

$Button1 = GUICtrlCreateButton("Обнулить ВСЁ", 0, 0, 68, 74)
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', 86, 0)

$Button2 = GUICtrlCreateButton("Стоп + Возврат", 111, 0, 68, 74)
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', 146, 0)

GUISetState(@SW_SHOW) ; показывает созданное окно

Local $hWnd = WinGetHandle("[ACTIVE]")
; Устанавливает активное окно в состояние "Поверх всех окон".
WinSetOnTop($hWnd, "", 1)

While 1
Switch GUIGetMsg()
; Кнопка "Обнулить ВСЁ"
Case $Button1
ConsoleWrite('Fined' & @CRLF)
; Кнопка "Стоп + Возврат"
Case $Button2
ConsoleWrite('Fined' & @CRLF)
Case $GUI_EVENT_CLOSE
GUIDelete($Form_Gui)
ExitLoop
EndSwitch
WEnd

; --------?Убрать опцию "Окно всегда поверх других окон"?----------
WinSetOnTop($hWnd, "", 0)

#autoit #programming #russian

0

17.04.2024

1 ответов

25 просмотров

Ruslan aka DUDE · Accepted Answer

Ruslan aka DUDE

можете удалять я вам уже скинул

0

12 дней назад

169 похожих чатов

#Include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form_Gui = GUICreate("Мой GUI",

1 ответов

Похожие вопросы