Add(NTService,2953706,63,105)
{
ServiceName="My_Service"
Description="Test"
RunType=0
link(onStart,13027975:doMessage,[])
link(onStop,13077125:doMessage,[(119,125)(119,153)])
}
Add(Message,13027975,147,105)
{
Message="Start Service"
}
Add(Message,13077125,147,147)
{
Message="Stop Service"
}
Запусти установщик и попробуй с ним поработать
Add(MainForm,2953706,112,280)
{
}
Add(Button,12973883,112,168)
{
Left=10
Top=30
Caption="Install"
link(onClick,8515284:doInstall,[])
}
Add(Button,54097,112,203)
{
Left=70
Top=30
Caption="UnInstall"
link(onClick,8515284:doUninstall,[(181,209)(181,181)])
}
Add(Button,10212580,112,98)
{
Left=260
Top=30
Caption="Start"
link(onClick,8515284:doStart,[(192,104)(192,160)])
}
Add(Button,7403126,112,133)
{
Left=320
Top=30
Caption="Stop"
link(onClick,8515284:doStop,[(181,139)(181,167)])
}
Add(ServiceTools,8515284,238,154)
{
Name="My_Service"
FileName="c:My_Service.exe"
Point(StatusService)
Point(doGetStatus)
Point(onGetStatus)
link(onGetStatus,15986041:doGetString,[])
}
Add(Timer,11687477,112,238)
{
Interval=100
link(onTimer,8515284:doGetStatus,[(192,244)(192,188)])
}
Add(StrList,15986041,294,133)
{
Strings=#13:Нет в сиcтеме|10:Остановлен|18:В процессе запуска|21:В процессе завершения|7:Запущен|44:В процессе запуска после временной остановки|30:В процессе временной остановки|19:Временно остановлен|
Point(doGetString)
Point(onGetString)
link(onGetString,8867508:doText,[])
}
Add(Edit,8867508,350,140)
{
Left=5
Top=5
Width=375
Text=""
}
Если все сделал правильно, то должно работать нормально без дурных вопросов. Можешь посмтреть текущее состоние сервиса в системе при помощи родной оснастки системы -- "Сервисы"