Вверх ↑
Этот топик читают: Гость
Ответов: 59
Рейтинг: 1
#1: 2021-09-05 16:27:20 ЛС | профиль | цитата
как получить путь из проводника виндовс? не как не разберусь.

Add(Button,15449288,203,175)
{
Left=10
Top=10
Data=Integer(0)
link(onClick,7573416:doEvent1,[])
}
Add(Memo,1139610,700,210)
{
Left=10
Top=40
Width=565
Height=355
link(Str,15110834:Var,[(706,198)(668,198)(668,282)(629,282)])
}
Add(WinEnum,16003096,371,182)
{
Point(ParentHandle)
Point(ClassName)
link(onFindWindow,11310440:doCompare,[])
}
Add(If_else,11310440,427,182)
{
Op2=String(CabinetWClass)
link(onTrue,6745129:doEnumChildWindows,[])
link(Op1,16003096:ClassName,[(433,167)(413,167)(413,226)(384,226)])
}
Add(WinEnum,6745129,490,161)
{
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ParentHandle)
Point(ClassName)
link(onEnumChildWindows,14688708:doWinInfo,[(534,181)(534,199)(478,199)(478,216)])
link(ParentHandle,16003096:Handle,[(503,149)(468,149)(468,236)(377,236)])
}
Add(FindWindow,9431484,490,287)
{
ClassName="CabinetWClass"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,539,280)
{
ClassName="ToolbarWindow32"
SkipParam=1
link(onFind,1223530:doWinInfo,[(583,286)(583,310)(527,310)(527,335)])
}
Add(Button,6316829,203,280)
{
Left=105
Top=10
Data=Integer(1)
link(onClick,7117322:doEvent1,[])
}
Add(WinInfo,1223530,539,329)
{
link(onWinInfo,294094:doWork3,[(676,335)])
link(Handle,3035978:Handle,[])
}
Add(HubEx,294094,672,210)
{
link(onEvent,1139610:doAdd,[])
}
Add(WinInfo,14688708,490,210)
{
link(onWinInfo,294094:doWork2,[])
link(Handle,6745129:Handle,[])
}
Add(GetIndexData,15110834,623,238)
{
link(Data1,14688708:Caption,[(629,226)(566,226)(566,254)(503,254)])
link(Data2,1223530:Caption,[(636,219)(594,219)(594,373)(552,373)])
}
Add(Hub,7573416,273,175)
{
link(onEvent1,8409286:doWork1,[(318,181)])
link(onEvent2,16003096:doEnum,[])
}
Add(Hub,7117322,280,280)
{
link(onEvent1,8409286:doWork3,[(318,286)])
link(onEvent2,9431484:doFind,[])
}
Add(HubEx,8409286,314,203)
{
link(onEvent,15110834:doIndex,[(342,209)(342,244)])
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 194
Рейтинг: 27
#2: 2021-09-05 17:02:12 ЛС | профиль | цитата
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)
}


Редактировалось 1 раз(а), последний 2021-09-06 15:19:09
карма: 5

0
Ответов: 470
Рейтинг: 14
#3: 2021-09-05 17:05:37 ЛС | профиль | цитата
Проще так

Add(MainForm,2953706,217,112)
{
}
Add(Button,15449288,329,112)
{
Left=10
Top=10
Data=Integer(0)
link(onClick,16003096:doEnum,[])
}
Add(Memo,1139610,651,126)
{
Left=10
Top=40
Width=565
Height=355
}
Add(WinEnum,16003096,385,112)
{
Point(ParentHandle)
Point(ClassName)
link(onFindWindow,11310440:doCompare,[])
}
Add(If_else,11310440,441,112)
{
Op2=String(CabinetWClass)
link(onTrue,6745129:doEnumChildWindows,[])
link(Op1,16003096:ClassName,[(447,97)(427,97)(427,156)(398,156)])
}
Add(WinEnum,6745129,497,91)
{
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ParentHandle)
Point(ClassName)
link(onEnumChildWindows,3221656:doSeparateMT,[])
link(ParentHandle,16003096:Handle,[(510,79)(482,79)(482,166)(391,166)])
}
Add(FindWindow,9431484,329,217)
{
ClassName="CabinetWClass"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,378,210)
{
ClassName="ToolbarWindow32"
SkipParam=1
link(onFind,1223530:doWinInfo,[(422,216)(422,240)(366,240)(366,265)])
}
Add(Button,6316829,217,210)
{
Left=105
Top=10
Data=Integer(1)
link(onClick,7117322:doEvent1,[])
}
Add(WinInfo,1223530,378,259)
{
link(Handle,3035978:Handle,[])
}
Add(Hub,7117322,294,210)
{
link(onEvent2,9431484:doFind,[])
}
Add(StrMask,3142790,595,119)
{
Mask="Адрес:*"
link(onTrue,1139610:doAdd,[])
}
Add(MT_MultiData,3221656,546,105)
{
Count=3
link(onData3,3142790:doCompare,[])
}

карма: 4

0
Ответов: 59
Рейтинг: 1
#4: 2021-09-05 17:20:03 ЛС | профиль | цитата
Gunta спасибо, Sersey это не работает.

--- Добавлено в 2021-09-05 17:27:49

Sersey нет нормал заработало проводник закрыл и пробую спасибо.

И еще вопрос как запустить новое окно проводника в том же процессе?

--- Добавлено в 2021-09-05 17:34:46

так новый процесс создается

Add(Button,15449288,364,413)
{
Left=10
Top=10
link(onClick,12731325:doExec,[])
}
Add(WinExec,12731325,420,413)
{
FileName="explorer"
Param="C:\"
}


Редактировалось 3 раз(а), последний 2021-09-05 17:34:46
карма: 0

0
Ответов: 470
Рейтинг: 14
#5: 2021-09-05 18:11:17 ЛС | профиль | цитата

Add(MainForm,2953706,245,56)
{
}
Add(Button,15449288,245,98)
{
Left=10
Top=10
Data=String(C:\)
link(onClick,12731325:doShellExec,[])
}
Add(WinExec,12731325,301,91)
{
}

карма: 4

0
Ответов: 59
Рейтинг: 1
#6: 2021-09-05 18:32:04 ЛС | профиль | цитата
а я так делал и не работало

Add(MainForm,5363732,539,224)
{
}
Add(Button,15449288,539,266)
{
Left=10
Top=10
Caption="C"
Data=String(C:\)
link(onClick,15725472:doWork2,[])
}
Add(WinExec,12731325,616,259)
{
FileName="explorer"
}
Add(Button,16242000,539,301)
{
Left=10
Top=40
Caption="D"
Data=String(D:\)
link(onClick,15725472:doWork3,[(592,307)])
}
Add(HubEx,15725472,588,266)
{
link(onEvent,12731325:doShellExec,[])
}


а надо было не писать explorer. спасибо.
карма: 0

0
Ответов: 1892
Рейтинг: 165
#7: 2021-09-20 06:21:37 ЛС | профиль | цитата
Вот ещё немного в тему:
https://forum.hiasm.com/topic/67801
https://forum.hiasm.com/topic/67791
карма: 8
0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)