ric писал(а):
как получить путь из проводника виндовс?Add(MainForm,9194213,84,105)
{
Height=119
Point(Handle)
link(onCreate,4063441:doPopup,[(123,125)(123,146)(74,146)(74,174)])
}
Add(FindWindow,9431484,217,154)
{
ClassName="CabinetWClass"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,266,147)
{
ClassName="WorkerW"
SkipParam=1
link(onFind,12520274:doFindChild,[])
}
Add(WinInfo,1223530,560,112)
{
link(onWinInfo,424933:doText2,[])
}
Add(WinTools,4063441,84,161)
{
link(Handle,9194213:Handle,[])
}
Add(Timer,7500614,161,154)
{
Interval=500
link(onTimer,9431484:doFind,[])
}
Add(FindWindow,12520274,315,140)
{
ClassName="ReBarWindow32"
SkipParam=1
link(onFind,13092911:doFindChild,[])
}
Add(FindWindow,13092911,364,133)
{
ClassName="Address Band Root"
SkipParam=1
link(onFind,15081300:doFindChild,[])
}
Add(FindWindow,15081300,413,126)
{
ClassName="msctls_progress32"
SkipParam=1
link(onFind,14705971:doFindChild,[])
}
Add(FindWindow,14705971,462,119)
{
ClassName="Breadcrumb Parent"
SkipParam=1
link(onFind,4614359:doFindChild,[])
}
Add(FindWindow,4614359,511,112)
{
ClassName="ToolbarWindow32"
SkipParam=1
link(onFind,1223530:doWinInfo,[])
}
Add(Edit,424933,609,105)
{
Left=790
Top=165
Align=2
link(Str,1223530:Caption,[(615,96)(601,96)(601,152)(573,152)])
}
Add(MainForm,4350586,133,91)
{
Height=119
Point(Handle)
link(onCreate,4063441:doPopup,[(172,111)(172,132)(123,132)(123,160)])
}
Add(FindWindow,9431484,336,140)
{
SkipParam=1
link(onFind,7689433:doValue,[])
link(ParentHandle,7689433:Value,[(342,131)(398,131)(398,180)(447,180)])
}
Add(WinInfo,1223530,336,189)
{
link(onWinInfo,424933:doText,[])
link(Handle,9431484:Handle,[])
}
Add(WinTools,4063441,133,147)
{
link(Handle,4350586:Handle,[])
}
Add(Timer,7500614,210,147)
{
Interval=500
link(onTimer,16256172:doEnum,[])
}
Add(Edit,424933,385,189)
{
Left=790
Top=165
Align=2
link(onChange,7689433:doClear,[(424,195)(424,153)])
link(Str,1223530:Caption,[(391,180)(377,180)(377,229)(349,229)])
}
Add(ArrayEnum,16256172,266,147)
{
link(onItem,9431484:doFindChild,[])
link(onEndEnum,1223530:doWinInfo,[(326,160)(326,195)])
link(Array,8267423:Array,[])
}
Add(Memory,7689433,441,140)
{
Default=Integer(0)
}
Add(StrList,8267423,252,91)
{
Strings=#13:CabinetWClass|7:WorkerW|13:ReBarWindow32|17:Address Band Root|17:msctls_progress32|17:Breadcrumb Parent|15:ToolbarWindow32|
Point(doGetString)
Point(String)
}