Вверх ↑
Ответов: 327
Рейтинг: 5
#1: 2013-06-29 18:42:52 ЛС | профиль | цитата
ыыыы
Леонид писал(а):
Вот одна: code_31376.txt

Tad писал(а):
А WINRAR не нашёл.

Add(MainForm,1251114,245,231)
{
}
Add(Button,7887376,287,133)
{
Left=5
Top=5
Caption="Browse"
link(onClick,9865165:doBrowse,[])
}
Add(Edit,9639222,294,231)
{
Left=240
Top=5
Width=80
Text="*WinRAR*"
link(onChange,15246352:doMask,[(333,237)(333,202)])
}
Add(Edit,15970570,245,133)
{
Left=335
Top=5
Text="*.exe"
}
Add(Button,3499054,245,189)
{
Left=5
Top=30
Caption="Search"
link(onClick,16237328:doSearch,[])
}
Add(Edit,13100026,385,133)
{
Left=70
Top=5
Width=160
Text="C:"
}
Add(Browse,9865165,336,133)
{
link(onBrowse,13100026:doText,[])
}
Add(FileSearch,16237328,294,189)
{
link(onSearch,15246352:doCompare,[])
link(Ext,15970570:Text,[(300,180)(251,180)])
link(Dir,13100026:Text,[(307,173)(391,173)])
}
Add(StrMask,15246352,343,189)
{
Mask="*WinRAR*"
Point(doMask)
link(onTrue,5122750:doEvent1,[])
}
Add(ListBox,787693,427,196)
{
Top=55
Width=380
Height=165
}
Add(Hub,5122750,385,196)
{
link(onEvent1,787693:doAdd,[])
link(onEvent2,5999205:doProcessMessages,[(406,209)(406,251)])
}
Add(Application,5999205,413,245)
{
}
угумс
------------ Дoбавленo в 18.35:
а в идеальном случае
Add(MainForm,1251114,154,182)
{
}
Add(Button,3499054,154,217)
{
Left=5
Top=30
Caption="Search"
link(onClick,16237328:doSearch,[])
}
Add(FileSearch,16237328,203,217)
{
link(onSearch,5122750:doEvent1,[])
link(Ext,983604:Value,[])
link(Dir,15839416:Value,[])
}
Add(ListBox,787693,280,217)
{
Top=55
Width=380
Height=165
}
Add(Hub,5122750,245,217)
{
link(onEvent1,787693:doAdd,[])
link(onEvent2,16237328:doStop,[(267,230)(267,255)(191,255)(191,230)])
}
Add(Memory,983604,203,175)
{
Default=String(*WinRAR.exe)
}
Add(Memory,15839416,210,175)
{
Default=String(C:)
}
т.к не нужны файлы по маске "*winrar*"(будут лишние .exe, как и получилось), а по маске "*WinRAR.exe"(ибо нужен только WinRAR.exe)
------------ Дoбавленo в 18.42:
а чтобы прям вообще круто было мы еще берем не "C:", а диск с Windows
карма: 0

0