Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2009-11-22 08:29:56 ЛС | профиль | цитата
Мне всречались примеры которые действуют по следующему принципу.
1. находят активное окно.
2. находят в нём SysListView32 и ComboBox.
3. через мессаги к этим контролам находят путь и имя выделенного файла.

вот собственно такая техника.
------------ Дoбавленo в 09.22:
Да кстати а что мозги то мозолить, самый простой вариант

Add(MainForm,2953706,154,105)
{
Width=407
Height=74
Point(Handle)
link(onCreate,9175772:doPopup,[(198,125)(198,153)(142,153)(142,181)])
}
Add(WinTools,9175772,154,168)
{
link(Handle,2953706:Handle,[])
}
Add(DropFile,8969416,252,112)
{
link(onDropFile,16404677:doText,[])
}
Add(Edit,16404677,308,112)
{
Left=10
Top=10
Width=370
Text=""
link(onChange,9368901:doWork,[])
}
Add(WinExec,13836460,455,112)
{
FileName="explorer.exe"
}
Add(FormatStr,13471525,406,112)
{
Mask="/e, /select, "%1" "
Point(FString)
link(onFString,13836460:doExec,[])
}
Add(VBJScript,9368901,357,112)
{
WorkPoints=#6:doWork|
EventPoints=#6:onPath|
Script=#44:Set WshShell = CreateObject("WScript.Shell")|22:Sub doWork(Data,Index)|51: Set WshShortcut = WshShell.CreateShortcut(Data)|37: sys.onPath WshShortcut.TargetPath|7:End Sub|
UseName=0
link(onPath,13471525:doString,[])
}


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
1
Голосовали:a0005d26f