Вверх ↑
Ответов: 373
Рейтинг: 108
#1: 2009-07-28 20:23:00 ЛС | профиль | цитата
-=yarik=- писал(а):
как реализовать поиск файла по ВСЕМУ КОМПЬЮТЕРУ?

Использовать компонент HardDisk.
code_14296.txt



Add(MainForm,11465126,294,168)
{
Width=375
Height=298
}
Add(HardDisk,274060,392,210)
{
Point(doEnum)
Point(onEnum)
link(onEnum,9121041:doSeparateMT,[])
}
Add(MT_MultiData,9121041,434,210)
{
link(onData1,490325:doValue,[(479,216)(479,174)])
link(onData2,15679240:doCompare,[])
}
Add(If_else,15679240,490,217)
{
Op2=Integer(3)
link(onTrue,5293532:doData,[])
}
Add(DoData,5293532,546,217)
{
link(onEventData,12774155:doStrCat,[])
link(Data,490325:Value,[])
}
Add(Memory,490325,546,168)
{
}
Add(FileSearch,10675856,644,217)
{
Ext="*.bak"
FullName=1
Point(onOtherFiles)
link(onSearch,13756095:doAdd,[])
link(onOtherFiles,3925653:doText,[(688,237)(688,279)])
}
Add(StrCat,12774155,595,217)
{
Str2=":"
link(onStrCat,10675856:doSearch,[])
}
Add(Button,15698500,294,217)
{
Left=60
Top=25
link(onClick,1882904:doStart,[])
}
Add(Thread,1882904,343,217)
{
Delay=1
FastStop=0
link(onExec,274060:doEnum,[])
}
Add(Memo,13756095,714,217)
{
Left=125
Top=25
Width=125
Height=180
ScrollBars=2
}
Add(StatusBar,3925653,714,273)
{
}

карма: 0

0
файлы: 1code_14296.txt [318B] [235]