Вверх ↑
Ответов: 8
Рейтинг: 2
#1: 2009-05-14 12:51:39 ЛС | профиль | цитата
Всем спасибо. Разобрался. Вот код.

Может быть не совсем оптимальный ... сорри.



Add(MainForm,2953706,196,308)
{
link(onCreate,6903059:doEvent1,[(233,329)(260,329)])
}
Add(Application,7620799,322,140)
{
}
Add(GetDataEx,6766544,315,175)
{
link(Data,7620799:AppFileName,[])
}
Add(FileTools,5426222,581,329)
{
link(FileName,6766544:Var3,[(587,184)])
link(NewFileName,14098152:Var1,[(594,317)])
}
Add(FilePart,5280678,322,266)
{
link(onName,10551932:doData,[(370,279)(370,202)])
link(onExt,8324679:doData,[])
link(FileName,6766544:Var2,[])
}
Add(Hub,6903059,266,322)
{
OutCount=4
link(onEvent1,5280678:doPart,[(300,328)(300,272)])
link(onEvent2,15345368:doString,[(450,335)(450,272)])
link(onEvent3,1917908:doWork,[])
link(onEvent4,8729435:doWork,[(285,349)(285,405)])
}
Add(EventFromData,10551932,385,196)
{
}
Add(EventFromData,8324679,385,280)
{
}
Add(FormatStr,15345368,476,266)
{
DataCount=3
Mask="%1%2.%3"
link(onFString,13011120:doData,[])
link(Str1,11860523:Var,[(482,224)(440,224)])
link(Str2,10551932:GetData,[(489,234)(394,234)])
link(Str3,8324679:GetData,[(496,255)(440,255)(440,325)(391,325)])
}
Add(EventFromData,13011120,623,266)
{
}
Add(Check,1917908,469,336)
{
link(onEvent,5426222:doCopy,[])
}
Add(GlobalVar,11860523,434,196)
{
Name="Path"
Data=String(C:windows)
}
Add(InfoTip,8746329,182,7)
{
Info=#70:Программа копируется по пути указанном в глобальной переменной <PATH>.|0:|82:В разделе реестра HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun|48:прописывает себя на загрузку при запуске Windows|0:|27:Check вставлен для отладки.|
HAlign=0
Width=589
Height=123
}
Add(Registry,11706999,623,392)
{
HKey=2
Key="SOFTWAREMicrosoftWindowsCurrentVersionRun"
Value="runprog"
link(Data,14098152:Var2,[])
}
Add(GetDataEx,14098152,616,308)
{
link(Data,13011120:GetData,[])
}
Add(Check,8729435,469,399)
{
link(onEvent,11706999:doWrite,[])
}
карма: 0

1
Голосовали:azurin