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)
                  
                  
                
можете удалять я вам уже скинул
Обсуждают сегодня