Вверх ↑
Этот топик читают: Гость
Ответов: 154
Рейтинг: 4
#1: 2009-12-09 12:53:51 ЛС | профиль | цитата
что не так?:
code_15948.txt
карма: 0

0
файлы: 1code_15948.txt [1.4KB] [102]
Ответов: 1328
Рейтинг: 69
#2: 2009-12-09 13:11:36 ЛС | профиль | цитата
kernel, не список, а строка *.exe*
карма: 2

0
Ответов: 154
Рейтинг: 4
#3: 2009-12-09 13:13:12 ЛС | профиль | цитата
и *.dll* тоже
Ну поиск нескольких расширений
Ну, так в чём там проблема?
карма: 0

0
Ответов: 1328
Рейтинг: 69
#4: 2009-12-09 13:40:36 ЛС | профиль | цитата
[b]kernel[/b], вот так будет работать
Add(HardDisk,274060,406,203)
{
Point(doEnum)
Point(onEnum)
link(onEnum,9121041:doSeparateMT,[])
}
Add(MT_MultiData,9121041,448,203)
{
link(onData1,490325:doValue,[(493,209)(493,167)])
link(onData2,15679240:doCompare,[])
}
Add(If_else,15679240,504,210)
{
Op2=Integer(3)
link(onTrue,5293532:doData,[])
}
Add(DoData,5293532,560,210)
{
link(onEventData,12774155:doStrCat,[])
link(Data,490325:Value,[])
}
Add(Memory,490325,560,161)
{
}
Add(FileSearch,10675856,658,210)
{
FullName=1
Point(onOtherFiles)
link(onSearch,13375573:doCompare,[])
link(onEndSearch,12686383:doMessage,[(709,223)(709,272)])
}
Add(StrCat,12774155,609,210)
{
Str2=":"
link(onStrCat,10675856:doSearch,[])
}
Add(Button,15698500,308,210)
{
Left=5
Top=5
Width=200
Caption="Ïîèñê"
link(onClick,1882904:doStart,[])
}
Add(Thread,1882904,357,210)
{
Delay=1
FastStop=0
link(onExec,274060:doEnum,[])
}
Add(Memo,13756095,952,231)
{
Left=5
Top=30
Width=200
Height=180
ScrollBars=2
}
Add(StatusBar,3925653,980,168)
{
SizeGrip=1
}
Add(MainForm,3425957,308,245)
{
Width=227
Height=276
Position=1
}
Add(Edit,11988503,658,252)
{
Left=100
Top=215
Width=105
link(Str,10675856:Count,[])
}
Add(Message,12686383,728,266)
{
}
Add(Label,926816,609,252)
{
Left=5
Top=216
Width=95
Height=17
Caption="Óäàëåíî ôàéëîâ :"
}
Add(StrMask,13375573,791,210)
{
Mask="*.exe*"
link(onFalse,11360809:doCompare,[(845,216)(845,174)])
link(onTrue,11615700:doWork2,[(870,223)(870,237)])
}
Add(StrMask,11360809,868,168)
{
Mask="*.dll*"
link(onFalse,3925653:doText,[])
link(onTrue,11615700:doWork1,[(921,181)])
}
Add(HubEx,11615700,917,224)
{
link(onEvent,13756095:doAdd,[])
}



карма: 2

0
Ответов: 154
Рейтинг: 4
#5: 2009-12-09 13:50:31 ЛС | профиль | цитата
не очень хороший вариант! а если расширений 30, 50, 100 ???
карма: 0

0
Ответов: 4641
Рейтинг: 334
#6: 2009-12-09 14:00:45 ЛС | профиль | цитата
kernel писал(а):
что не так?:

снова заставляешь думать?
http://hiasm.com/forum.html?q=3&p=133735
мы эту тему уже закрыли же!!!!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#7: 2009-12-09 17:05:11 ЛС | профиль | цитата
kernel писал(а):
а если расширений 30, 50, 100 ???
Хоть тысяча.
code_15952.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_15952.txt [1.4KB] [106]
Ответов: 4641
Рейтинг: 334
#8: 2009-12-09 17:10:06 ЛС | профиль | цитата
Tad писал(а):
code_15952.txt

дело каждого...но не надо было доказывать.
Я указал тему где есть, Tad и твоя схема. Он этот вопрос поднимал. Забил на все наши старания, а теперь опять 25.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)