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

#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)

1 ответов

78 просмотров

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

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

Обсуждают сегодня

Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Всем привет. Хотел бы написать для себя свою ос. Причины: 1) нужен опыт в чем-то 2) будет меньше весить 3) свое, но там будут свои задумки Я понимаю что нужно писать для всег...
Shadow Akira
18
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
now Linux kernel development is becoming a dictatorship group: https://www.youtube.com/watch?v=xPF2NSFvNCc
Sharuzzaman Ahmat Raslan
23
5? да там все 10
Boris Vinogradov
12
Приветствую всех, может кто знает как это реализовать? Чтобы окно не сворачивать и восстанавливать, чтобы обойтись без этого. Просто сделать скриншот всего, что есть под актив...
di ma
6
Всем привет! Скажите, никто не пытался уменьшить размер процесса ssl, которые ассоциируется с открытым соединением (не помню точное название этого процесса, но там была какая-...
Алексей
20
Ок. Где достать 11 версию дельфи. На офф сайте ссылки на неё нет... Какие есть варианты?
Serg Vish
19
привет всем. Народ, кто-нибудь работал с мультипоточностью? Где посмотреть/ что почитать посоветуете? В идеале чтоб материал был максимально сжатый, времени читать например в...
Serg Vish
18
Карта сайта