---Zak---
17-09-2010, 10:57
День добрый... Подскажите плиз куда копать - ситуация следующая:
Необходимо создать программу, которая будет висеть в трее и по нажатии правой кнопки выкидывать меню, то мне так же необходимо параллельно запустить функцию, которая будет читать из файла данные и если что делать изменения ручками.
Нашел похожую тему: http://forum.oszone.ru/post-1397936.html, но там ставиться форма и кнопка на ней висит... поковыряв ее - ничего не получилось... сижу ломаю голову до сих пор. Меню создается и файл читается, но при выборе (в данном примере) блокнота - он не открывается... и выход не срабатывает.
Свой кусок прилагаю ниже...
#NoTrayIcon
#include <ModernMenuRaw.au3>
$hTrayIcon = _TrayIconCreate("Proba")
_TrayIconSetClick(-1, 16)
_TrayIconSetState()
$nTrayMenu = _TrayCreateContextMenu()
$Notepad_TrayItem = _TrayCreateItem("Блокнот")
_TrayItemSetIcon(-1, "notepad.exe", 0)
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$Exit_TrayItem = _TrayCreateItem("Выход")
_TrayItemSetIcon(-1, "shell32.dll", 28)
_SetTrayIconBkColor(0xC46200)
_SetTraySelectBkColor(0x087272)
_SetTraySelectTextColor(0xFFFFFF)
AdlibRegister("ReadFILE", 1000)
While 1
Switch GUIGetMsg()
Case $Notepad_TrayItem
AdlibUnRegister()
Run("Notepad.exe")
Case $Exit_TrayItem
_TrayIconDelete($hTrayIcon)
ExitLoop
EndSwitch
WEnd
Func ReadFILE()
$file = FileOpen("C:\proba.txt", 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
;~ ........
WEnd
FileClose($file)
EndFunc ;==>
Необходимо создать программу, которая будет висеть в трее и по нажатии правой кнопки выкидывать меню, то мне так же необходимо параллельно запустить функцию, которая будет читать из файла данные и если что делать изменения ручками.
Нашел похожую тему: http://forum.oszone.ru/post-1397936.html, но там ставиться форма и кнопка на ней висит... поковыряв ее - ничего не получилось... сижу ломаю голову до сих пор. Меню создается и файл читается, но при выборе (в данном примере) блокнота - он не открывается... и выход не срабатывает.
Свой кусок прилагаю ниже...
#NoTrayIcon
#include <ModernMenuRaw.au3>
$hTrayIcon = _TrayIconCreate("Proba")
_TrayIconSetClick(-1, 16)
_TrayIconSetState()
$nTrayMenu = _TrayCreateContextMenu()
$Notepad_TrayItem = _TrayCreateItem("Блокнот")
_TrayItemSetIcon(-1, "notepad.exe", 0)
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$Exit_TrayItem = _TrayCreateItem("Выход")
_TrayItemSetIcon(-1, "shell32.dll", 28)
_SetTrayIconBkColor(0xC46200)
_SetTraySelectBkColor(0x087272)
_SetTraySelectTextColor(0xFFFFFF)
AdlibRegister("ReadFILE", 1000)
While 1
Switch GUIGetMsg()
Case $Notepad_TrayItem
AdlibUnRegister()
Run("Notepad.exe")
Case $Exit_TrayItem
_TrayIconDelete($hTrayIcon)
ExitLoop
EndSwitch
WEnd
Func ReadFILE()
$file = FileOpen("C:\proba.txt", 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
;~ ........
WEnd
FileClose($file)
EndFunc ;==>