Opt("TrayMenuMode", 1+2+4+8) ; Default tray menu items (Script Paused/Exit) will not be shown.
TraySetClick(16) ; показ меню только по отпусканию правой кнопки
$exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "ExitEvent") ; обработка на закрытие программы
TraySetState()
$Disp = ObjCreate("AddIn.Line45");Создаем ссылку на COM объект Line1c.dll, библиотека д.б. зарегистрирована в системе
$Disp.DeviceEnabled=1;Включаем устройство
If $Disp.ResultCode=0 Then
Clock()
Else
MyError()
EndIf
Func MyError()
;.....
Exit
EndFunc
Func Clock()
$Disp.CreateWindow (0, 0, 2, 20, 2, 20)
While 1;Бесконечный цикл
;.....
Sleep (10)
WEnd
EndFunc
Func ExitEvent()
Exit
EndFunc