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 ответов

81 просмотр

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

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

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

30500 за редактор? )
Владимир
47
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
1
Он в одиночку это дело запилил или была какая-то команда?
Aquinary
12
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Всем привет, нужна как никогда, нужна помощь с IO в загрузчике. Пишу в code16 после установки сегментных регистров, пишу вывод символа. Пробовал 2 варианта: # 1 mov $0x0E, %a...
Shadow Akira
14
Карта сайта