Вверх ↑
Ответов: 80
Рейтинг: -5
#1: 2009-09-09 12:19:33 ЛС | профиль | цитата
Ссылку проверил при первой загрузке работатала, а сегодна нормально грузит только с файлообменника. Решил попробовать вставить по другому: кодом



*Поиск файлов по части имени
Make(delphi)
ver(4.03 build 180)
Add(MainForm,47236,35,133)
{
Left=312
Top=284
Width=629
Height=420
Caption=""
TaskBar=1
link(onCreate,26907:doWork1,[])
}
Add(ListBox,11838,175,147)
{
Top=32
Width=386
Height=174
Font=[Arial,8,0,0,1]
AddType=1
Point(String)
Point(onKeyDown)
}
Add(ChildPanel,26907,112,147)
{
link(onEvent1,11838:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,79906,14,14)
{
EventCount=2
WorkCount=1
Width=395
Height=180
link(doWork1,2676540:doRead,[(21,20)(21,34)])
}
Add(Panel,70107,238,98)
{
Width=621
Height=20
Align=2
Font=[Arial,8,0,0,1]
BorderWidth=0
BevelInner=0
}
Add(FileSearch,75168,112,91)
{
Ext=""
link(onSearch,79906:onEvent1,[(175,97)(175,20)])
link(Ext,2808422:Value,[(118,83)(97,83)])
link(Dir,15624982:Value,[(125,58)(139,58)])
}
Add(Memory,15624982,133,21)
{
Default=String(F:Книги-кат-00Рассказы)
}
Add(Button,16461784,21,91)
{
link(onClick,75168:doSearch,[])
}
Add(Memory,2808422,91,21)
{
Default=String(*КУКАРКИН*.*)
}
Add(Ini,2676540,28,28)
{
@Color=16733695
FileName="c:BookTB.INI"
Section="Key_N_L_S"
Key="PathNew"
Type=1
link(onResult,15624982:doValue,[(96,34)(96,27)])
}
END_SDK

Код

карма: 0

0
файлы: 1code_14875.txt [1.2KB] [100]