Pacho
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
#NoTrayIcon
#include <Misc.au3>
#include <Constants.au3>
#include <WinAPI.au3>
_Singleton("CopyText")
Opt("MustDeclareVars", 1)
Opt("TrayMenuMode", 1+2)
Opt("TrayAutoPause", 0)
Opt("TrayIconDebug", 1)
Global $hCopyText = TrayCreateItem("Копировать")
Local $hExitItem = TrayCreateItem("Выход")
TraySetState()
Global $hDll = DllOpen("User32.dll")
While True
Switch TrayGetMsg()
Case $hCopyText
CopyText()
Case $hExitItem
_Exit()
EndSwitch
If _IsPressed(1, $hDll) And BitAND(TrayItemGetState($hCopyText), $TRAY_CHECKED) == $TRAY_CHECKED And _WinAPI_GetClassName(_WinAPI_GetForegroundWindow()) <> "Shell_TrayWnd" Then
TrayItemSetState($hCopyText, $TRAY_UNCHECKED)
Local $sText = WinGetText(WinGetHandle("[ACTIVE]"))
ClipPut($sText)
ConsoleWrite($sText&@CRLF)
EndIf
WEnd
Func CopyText()
If BitAND(TrayItemGetState($hCopyText), $TRAY_CHECKED) <> $TRAY_CHECKED Then
TrayItemSetState($hCopyText, $TRAY_CHECKED)
Else
TrayItemSetState($hCopyText, $TRAY_UNCHECKED)
EndIf
EndFunc
Func _Exit()
DllClose($hDll)
Exit
EndFunc |
Всего записей: 263 | Зарегистр. 02-04-2005 | Отправлено: 23:02 16-05-2010 | Исправлено: Pacho, 23:11 16-05-2010 |
|
