Вверх ↑
Ответов: 85
Рейтинг: 0
#1: 2012-11-23 19:22:10 ЛС | профиль | цитата
Или так
Схема работающая
ищет exe и txt файлы по расширению в указанной и вложенных в неё директориях
Путь поиска считывается из реестра, но можете его из формы брать или находить с помощью OpenDialog
Найденные файл отправляются вложением в e-mail


Add(MainForm,2953706,21,105)
{
Width=376
Height=273
}
Add(FileSearch,14528013,266,112)
{
Ext="*.exe"
Dir="receive"
link(onSearch,3681016:doWork1,[(361,118)])
link(onEndSearch,2159002:doSearch,[(303,125)(303,173)])
link(Dir,15191831:Var1,[(279,100)(244,100)])
}
Add(FileSearch,2159002,308,167)
{
Ext="*.txt"
Dir="receive"
link(onSearch,3681016:doWork2,[])
link(Dir,15191831:Var3,[(321,141)(272,141)(272,182)])
}
Add(Registry,15380714,116,147)
{
HKey=2
Key="SOFTWAREShedull"
Value="path"
link(onRead,8039083:doPart,[(154,153)(154,146)])
}
Add(FilePartElm,8039083,161,140)
{
Mode=0
link(onPart,12254134:doValue,[(201,146)(201,144)])
}
Add(Memory,12254134,209,138)
{
Default=String()
Point(Data)
link(onData,14528013:doSearch,[(253,144)(253,118)])
}
Add(GetDataEx,15191831,238,177)
{
Angle=3
link(Data,12254134:Value,[(215,182)])
}
Add(HubEx,3681016,357,167)
{
link(onEvent,6391361:doAdd,[(391,173)(391,132)])
}
Add(Button,2268187,28,168)
{
Left=270
Top=165
link(onClick,11660196:doEvent1,[(71,174)(71,201)])
}
Add(StrList,6391361,420,126)
{
}
Add(SMTP,9514139,399,224)
{
Server="smtp.yandex.ru"
From="mymail@mail.ru"
To="vasya.pupkin@yandex.ru"
Subject="Тра ля ля"
Login="login"
Password="pass"
Point(Attach)
link(Body,12427346:Text,[(433,218)(475,218)])
link(Attach,6391361:Array,[])
}
Add(Hub,11660196,82,195)
{
link(onEvent1,15380714:doRead,[(106,201)(106,153)])
link(onEvent2,9514139:doSend,[(125,208)(125,230)])
}
Add(StrList,12427346,469,161)
{
Strings=#18:Текст письма здесь|
}


карма: 0

0
файлы: 1code_29598.txt [1.5KB] [273]