Make(delphi)
ver(4.04 build 185)
Add(MainForm,734596,28,14)
{
 Width=552
 Height=319
 Position=1
}
Add(FileSearch,2948156,140,175)
{
 Ext="*.*"
 Include=1
 TimeType=1
 link(onSearch,9654482:doEvent1,[(182,181)(182,220)(142,220)(142,293)])
 link(onEndSearch,5600937:doChangeValue,[])
 link(Dir,12409975:Var2,[])
}
Add(Button,3871155,28,105)
{
 Left=10
 Top=60
 Width=80
 Caption="Выполнить"
 link(onClick,6797831:doEvent1,[])
}
Add(Memo,8459538,399,35)
{
 Left=10
 Top=105
 Width=525
 Height=175
 ScrollBars=3
}
Add(DriveBox,5040921,147,56)
{
 Left=10
 Top=30
 Width=180
 Height=21
 Disk="D"
}
Add(FileTools,4027878,399,154)
{
 DelToRecycle=1
}
Add(Hub,6797831,77,105)
{
 OutCount=3
 link(onEvent1,8459538:doClear,[(114,111)(114,48)])
 link(onEvent2,2159884:doSearch,[])
 link(onEvent3,2948156:doSearch,[(114,125)(114,181)])
}
Add(Label,9245095,28,63)
{
 Left=10
 Top=85
 Width=103
 Height=17
 Caption="Удалённые ссылки"
}
Add(Label,11398354,70,63)
{
 Left=10
 Top=5
 Width=188
 Height=17
 Caption="Выбрать диск где будут удалены lnk"
}
Add(FileAttributes,8274397,196,294)
{
 Attr=32
 Point(onError)
 link(onRead,1415584:doCompare,[])
 link(FileName,12994482:Value,[])
 link(onError,759278:doMessage,[(237,307)(237,342)])
}
Add(Message,759278,259,336)
{
 Message="Ошибка доступа"
 Caption="Внимание"
}
Add(If_else,1415584,259,294)
{
 Op2=Integer(32)
 link(onFalse,8274397:doSet,[(303,307)(303,374)(181,374)(181,307)])
}
Add(FileSearch,2159884,133,112)
{
 Ext="*.lnk"
 TimeType=1
 Point(onOtherFiles)
 link(onSearch,1574981:doEvent1,[])
 link(onEndSearch,15700037:doChangeValue,[(181,125)(181,146)])
 link(Dir,12409975:Var1,[(146,103)])
 link(onOtherFiles,3758701:doEvent1,[(332,132)(332,293)])
}
Add(FileAttributes,5634334,420,294)
{
 Attr=2
 Point(onError)
 link(onRead,3654325:doCompare,[])
 link(FileName,4780944:Value,[])
 link(onError,13542966:doMessage,[(468,307)(468,342)])
}
Add(Message,13542966,483,336)
{
 Message="Ошибка доступа"
 Caption="Внимание"
}
Add(If_else,3654325,483,294)
{
 Op2=Integer(2)
 link(onFalse,5634334:doSet,[(526,307)(526,376)(406,376)(406,307)])
}
Add(Hub,1574981,357,112)
{
 OutCount=3
 link(onEvent1,8459538:doAdd,[(385,118)(385,41)])
 link(onEvent2,825957:doSet,[])
 link(onEvent3,4027878:doDelete,[(385,132)(385,174)])
}
Add(FileAttributes,825957,399,112)
{
 Attr=2
 Point(onError)
}
Add(Memory,4780944,420,252)
{
}
Add(Hub,3758701,378,287)
{
 link(onEvent1,4780944:doValue,[(406,293)(406,258)])
 link(onEvent2,5634334:doRead,[])
}
Add(Memory,12994482,196,252)
{
}
Add(Hub,9654482,154,287)
{
 link(onEvent1,12994482:doValue,[(182,293)(182,258)])
 link(onEvent2,8274397:doRead,[])
}
Add(LED,15700037,196,140)
{
 Left=230
 Top=30
 ColorOn=65280
 ColorOff=32768
}
Add(LED,5600937,196,182)
{
 Left=265
 Top=30
 ColorOn=65280
 ColorOff=32768
}
Add(InfoTip,8394572,126,238)
{
 Info=#3:Dir|
 Width=197
 Height=158
}
Add(InfoTip,4942732,343,238)
{
 Info=#5:Files|
 Width=197
 Height=158
}
Add(GetDataEx,12409975,147,98)
{
 link(Data,5040921:Disk,[])
}
Add(InfoTip,11954532,343,14)
{
 Info=#3:lnk|
 Width=106
 Height=179
}