Подскажите как можно сделать ярлык для папки?
схема
Add(Edit,13332009,672,189)
{
Left=135
Top=25
Width=205
ParentFont=0
Visible=1
Text=""
Point(doVisible)
Point(doSetFocus)
link(onEnter,8003808:doString,[(722,202)(722,485)(328,485)(328,342)])
}
Add(FilePartElm,6397136,357,210)
{
Mode=0
Point(Part)
link(onPart,3842540:doWork2,[])
}
Add(DropFile,16710448,168,203)
{
link(onDropFile,866289:doEvent1,[])
}
Add(FormatStr,8003808,357,336)
{
Mask="%1\%2 - print -"
Point(FString)
link(onFString,4703569:doDir,[])
link(Str1,6397136:Part,[])
link(Str2,5880950:Var1,[(370,303)])
}
Add(Dir,4703569,448,336)
{
link(onEnd,4228679:doString,[])
}
Add(Hub,866289,245,203)
{
OutCount=3
link(onEvent2,6397136:doPart,[])
link(onEvent3,13332009:doSetFocus,[(619,223)(619,216)])
}
Add(ShortCut,9568367,357,427)
{
link(onCreate,3842540:doWork1,[(429,433)(429,209)])
link(FileName,8003808:FString,[])
link(ShortcutName,4228679:FString,[(370,422)(531,422)])
}
Add(FormatStr,4228679,525,336)
{
Mask="%1%2.lnk"
Point(FString)
link(onFString,9568367:doCreate,[(571,342)(571,473)(342,473)(342,433)])
link(Str1,4703569:DesktopDir,[(531,324)(496,324)(496,380)(461,380)])
link(Str2,5880950:Var2,[(538,324)(678,324)])
}
Add(GetDataEx,5880950,672,298)
{
link(Data,13332009:Text,[])
}
Add(ChanelToIndex,3842540,469,203)
{
link(onIndex,13332009:doVisible,[])
}