Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2017-12-25 19:40:02 ЛС | профиль | цитата
В прищепке, для себя делал, может пригодится.

--- Добавлено в 2017-12-25 20:19:07

Вот пример:


Add(MainForm,2953706,105,196)
{
Width=664
Height=443
Caption="Получение информации о exe и dll (пример)"
}
Add(ChildPanel,8701111,105,126)
{
link(onEvent1,410574:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,15166621,21,21)
{
EventCount=1
VarCount=1
Width=510
link(Var1,8164532:Text,[(27,145)(391,145)])
}
Add(Panel,8317531,35,105)
{
Width=645
Height=31
Align=2
}
Add(Edit,8164532,385,105)
{
Left=185
Top=10
Width=170
Layout="lay"
WidthScale=100
Text=""
}
Add(Button,8597930,161,105)
{
Left=360
Top=10
Width=40
Layout="lay"
Caption="..."
link(onClick,9666937:doBrowse,[])
}
Add(Label,6820746,105,105)
{
Left=15
Top=15
Width=139
Height=17
Layout="lay"
Caption="Каталог с exe, dll файлами"
}
Add(HBoxLayout,2220623,245,63)
{
Name="lay"
Space=2
Padding=5
}
Add(Browse,9666937,245,105)
{
NewStyle=0
NewDirButton=1
link(onBrowse,4371632:doEvent1,[])
}
Add(Hub,4371632,308,105)
{
link(onEvent1,8164532:doText,[])
link(onEvent2,15166621:onEvent1,[(333,118)(333,27)])
}
END_SDK
Add(MTStrTbl,5683477,546,182)
{
Top=31
Width=648
Height=374
Align=5
Name="FileTable"
Columns=#4:Файл|14:Внутреннее имя|22:Оригинальное имя файла|17:Название продукта|12:Версия файла|15:Версия продукта|18:Специальная сборка|16:Приватная сборка|25:Дата последнего изменения|26:Время последнего изменения|8:Компания|8:Описание|15:Авторские права|14:Торговая марка|10:Комментари|5:Email|
}
Add(FileInfo,5537393,329,182)
{
@Color=65535
Mask="%IName;%OFName;%PName;%FVersion;%PVersion;%SBuild;%PBuild;%Date;%Time;%Company;%Descrip;%Copyr;%TMarks;%Comm;%Email"
link(onGetInfo,16495474:doStrCatDlm,[])
}
Add(FileSearch,13740813,182,133)
{
SubDir=1
link(onSearch,9539186:doCheck,[])
link(onEndSearch,14702066:doConvert,[(221,146)(221,258)])
link(Dir,8701111:Var1,[(195,117)(97,117)(97,166)(111,166)])
}
Add(RE_Check,9539186,238,133)
{
Expression=".*\.(exe|dll)"
link(onMatch,12606910:doEvent1,[])
}
Add(FilePartElm,12039275,385,133)
{
Point(Part)
}
Add(Hub,12606910,287,133)
{
link(onEvent1,12039275:doPart,[])
link(onEvent2,5537393:doGetInfo,[(319,146)(319,188)])
}
Add(StrCatDelim,16495474,385,182)
{
Delimiter=";"
link(onStrCatDlm,12243801:doAdd,[])
link(Str1,12039275:Part,[])
}
Add(StrList,12243801,476,182)
{
}
Add(Hub,410574,147,126)
{
link(onEvent1,12243801:doClear,[(172,132)(172,111)(445,111)(445,195)])
link(onEvent2,13740813:doSearch,[])
}
Add(MST_Load,11295451,546,245)
{
ColNameHeader=1
MSTControl="FileTable"
}
Add(StreamConvertor,14702066,476,252)
{
Mode=7
Point(Data)
link(onResult,11295451:doLoadFromStream,[])
link(Data,12243801:Text,[])
}
Add(StyleXP,9236774,161,196)
{
}
карма: 1

0
файлы: 1FileInfo.zip [3.1KB] [448]
Редактировалось 1 раз(а), последний 2017-12-25 20:19:07