HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетупуть из проводника ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 249
Рейтинг: 4
#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)])
}
карма: 1

0
Ответов: 783
Рейтинг: 168
#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
карма: 15

0
Ответов: 537
Рейтинг: 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
Ответов: 249
Рейтинг: 4
#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
карма: 1

0
Ответов: 537
Рейтинг: 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
Ответов: 249
Рейтинг: 4
#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. спасибо.
карма: 1

0
Ответов: 1926
Рейтинг: 172
#7: 2021-09-20 06:21:37 ЛС | профиль | цитата
Вот ещё немного в тему:
https://forum.hiasm.com/topic/67801
https://forum.hiasm.com/topic/67791
карма: 9
Учебник по HiAsm | Видеоуроки | Мои программы
0
7
ФорумыПомощь по пакетупуть из проводника ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика