Вверх ↑
Ответов: 485
Рейтинг: 86
#1: 2007-04-11 16:18:56 ЛС | профиль | цитата
User108,
я такой скринсервер делал когда-то. Вот, может пригодится:
(Использованы нестандартные компоненты 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
}
карма: 0

0
файлы: 1code_1270.txt [40.2KB] [448]