я такой скринсервер делал когда-то. Вот, может пригодится:
(Использованы нестандартные компоненты Turn, Relay!!!)
code_1270.txt
А это инсталлятор для него:
Add(MainForm,15418162,147,154)
{
Left=20
Top=105
Position=1
link(onCreate,3191307:doEvent1,[])
}
Add(SCR,8264078,280,252)
{
FileSCR="CompOFF.scr"
Interval="600"
Point(doInterval)
link(FileSCR,9285972:Var2,[])
}
Add(DoData,7299283,328,189)
{
link(onEventData,16471987:doCopyFromStream,[])
link(Data,7390149:Stream,[])
}
Add(MemoryStream,7390149,328,84)
{
@Hint=#11:CompOFF.scr|
}
Add(Hub,3191307,195,189)
{
OutCount=3
link(onEvent1,2428603:doStrCat,[])
link(onEvent2,8264078:doFileSCR,[(264,202)(264,265)])
link(onEvent3,15418162:doClose,[(240,209)(240,229)(137,229)(137,181)])
}
Add(FileStream,16471987,395,175)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,9285972:Var3,[(401,165)(343,165)(343,235)])
}
Add(Dir,12841543,252,133)
{
Point(WindowsDir)
}
Add(StrCat,2428603,280,189)
{
Str2="system32CompOFF.scr"
link(onStrCat,7299283:doData,[])
link(Str1,12841543:WindowsDir,[])
}
Add(GetDataEx,9285972,273,226)
{
link(Data,2428603:Result,[(286,228)(286,228)])
}
Add(InfoTip,10001748,301,35)
{
Info=#25:Сюда помещаем CompOFF.scr|
Width=99
Height=109
}