Must AutoIt
Сообщения: 3054 Благодарности: 1009
Профиль | Сайт | Отправить PM | Цитировать
#include <GUIConstantsEx.au3> $hGUI = GUICreate("_WinMoveAboveTaskBar Demo", 200, 500) GUISetState(@SW_SHOW) _WinMoveAboveTaskBar($hGUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _WinMoveAboveTaskBar($hWin) Local $aTaskBar_Pos = WinGetPos("[CLASS:Shell_TrayWnd]") Local $aWin_Pos = WinGetPos($hWin) Local $aClient_Size = WinGetClientSize($hWin) Local $iBorder_Width = ($aWin_Pos[2] - $aClient_Size[0]) Local $iCaption_Height = ($aWin_Pos[3] - $aClient_Size[1]) Local $iLeft = (@DesktopWidth-$aClient_Size[0]) - $iBorder_Width Local $iTop = (@DesktopHeight-$aClient_Size[1]-$aTaskBar_Pos[3]) - $iCaption_Height WinMove($hWin, "", $iLeft, $iTop) EndFunc
------- “Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.” Альберт Эйнштейн P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©» http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community
Отправлено: 15:21, 16-09-2009 | #2