Add(WinExec,11838412,560,358)
{
 Param="Service.exe /install"
 Mode=10
}

Add(WinExec,10074519,224,154)
{
 FileName="net start "Parental Controls""
}

Add(ServiceTools,16716565,154,224)
{
}

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=""
}