HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуВозможно ли получить полный путь к файлу или папке под курсором ? ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 57
Рейтинг: 0
#1: 2016-07-19 04:18:52 ЛС | профиль | цитата
Всем привет ! Нарыл тут код который выдаёт имя файла или папки под курсором ,
а возможно ли получить полный путь к файлу или папке под курсором , такой же
как с перетаскивания ?
code_37476.txt
карма: 0

0
файлы: 1code_37476.txt [13.8KB] [1932]
Ответов: 497
Рейтинг: 16
#2: 2016-07-21 05:32:08 ЛС | профиль | цитата
Код в студию
Но легче будет узнать каталог у окна и просто %1%2 (имхо)
карма: 1
        ]  
0
Ответов: 57
Рейтинг: 0
#3: 2016-07-21 07:44:15 ЛС | профиль | цитата
RAWY_EX
узнать каталог у окна и просто %1%2 (имхо)


- мая твая непанимать
карма: 0

0
Ответов: 497
Рейтинг: 16
#4: 2016-07-21 10:30:19 ЛС | профиль | цитата
Vaduha, окно под курсором розшарить в поисках каталога а потом имя файла к каталогу добавить
карма: 1
        ]  
0
Ответов: 57
Рейтинг: 0
#5: 2016-07-21 13:05:20 ЛС | профиль | цитата
RAWY_EX дружище спасибо за помощь конечно , но я в этом деле нуб , не мог бы ты схемку с примером накидать ?
карма: 0

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#6: 2016-07-21 15:38:48 ЛС | профиль | цитата
Так не пойдет?

Add(MainForm,2953706,287,210)
{
}
Add(MouseEvent,5775252,336,210)
{
 Point(Handle)
}
Add(Timer,6981899,287,266)
{
 Interval=200
 link(onTimer,8406704:doWinInfo,[])
}
Add(WinInfo,8406704,350,266)
{
 Point(ProcessID)
 link(onWinInfo,14002161:doFindID,[])
 link(Handle,5775252:Handle,[])
}
Add(Edit,13243357,490,259)
{
 Left=5
 Top=10
 Width=370
 Text=""
 link(Str,14002161:FullPath,[(496,250)(531,250)(531,299)(440,299)])
}
Add(EnumProcess,14002161,427,259)
{
 Point(onFind)
 Point(FullPath)
 link(ID,8406704:ProcessID,[(433,250)(419,250)(419,306)(370,306)])
 link(onFind,13243357:doText2,[])
}
карма: 22

0
Ответов: 57
Рейтинг: 0
#7: 2016-07-21 16:15:17 ЛС | профиль | цитата
nesco у тебя схема на окна реагирует , а я инфу о файле хочу получить , который под курсором .
карма: 0

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#8: 2016-07-21 16:54:59 ЛС | профиль | цитата
Vaduha писал(а):
а я инфу о файле хочу получить , который под курсором

Вообще-то, это не совсем тривиальная задача. Есть такие решения, но они работают не везде
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#9: 2016-07-21 17:57:58 ЛС | профиль | цитата
Vaduha писал(а):
возможно ли получить полный путь к файлу или папке под курсором
Vaduha писал(а):
я инфу о файле хочу получить , который под курсором
Так всё же, что ты хочешь получить, дитё 2011 года рождения?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2016-07-21 18:56:56 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-14 19:11:10
карма: 0

0
Ответов: 57
Рейтинг: 0
#11: 2016-07-21 19:22:40 ЛС | профиль | цитата
вот такой вариант получился - отображает имя и путь к файлу или папке на рабочем столе , но папку можно изменить ...
возможно если в InlineCode покавырять то будет казать любой файл и папку как на рабочем столе
так и в проводнике .
Add(MainForm,4053814,61,84)
{
 Width=600
 Height=126
 Color=-16777216
 Caption="File on the Desktop"
 BorderStyle=3
 Position=1
 Point(onClose)
 link(onCreate,3695030:doEvent1,[])
 link(onClose,4565006:doStopWatch,[(122,111)(122,132)])
}
Add(Label,11373442,336,273)
{
 Top=30
 Width=600
 Height=20
 Color=255
 Font=[MS Sans Serif,10,1,0,1]
 Caption="---"
 AutoSize=1
 Alignment=2
}
Add(Label,12913422,476,126)
{
 Top=80
 Width=600
 Height=20
 Color=255
 Font=[MS Sans Serif,10,1,0,1]
 Caption="---"
 AutoSize=1
 Alignment=2
}
Add(InlineCode,12351837,224,273)
{
 WorkPoints=#5:doGet|
 EventPoints=#8:onResStr|
 DataPoints=#3:inX|3:inY|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|36:  IAccessible = interface(IDispatch)|46:    ['{618736E0-3C3D-11CF-810C-00AA00389B71}']|48:    function Get_accParent: IDispatch; safecall;|50:    function Get_accChildCount: Integer; safecall;|69:    function Get_accChild(varChild: OleVariant): IDispatch; safecall;|69:    function Get_accName(varChild: OleVariant): WideString; safecall;|70:    function Get_accValue(varChild: OleVariant): WideString; safecall;|76:    function Get_accDescription(varChild: OleVariant): WideString; safecall;|69:    function Get_accRole(varChild: OleVariant): OleVariant; safecall;|70:    function Get_accState(varChild: OleVariant): OleVariant; safecall;|69:    function Get_accHelp(varChild: OleVariant): WideString; safecall;|100:    function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;|81:    function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;|48:    function Get_accFocus: OleVariant; safecall;|52:    function Get_accSelection: OleVariant; safecall;|78:    function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;|78:    procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;|90:    procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; |82:                          out pcyHeight: Integer; varChild: OleVariant); safecall;|86:    function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;|77:    function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;|65:    procedure accDoDefaultAction(varChild: OleVariant); safecall;|85:    procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;|87:    procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;|53:    property accParent: IDispatch read Get_accParent;|59:    property accChildCount: Integer read Get_accChildCount;|73:    property accChild[varChild: OleVariant]: IDispatch read Get_accChild;|90:    property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;|93:    property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;|86:    property accDescription[varChild: OleVariant]: WideString read Get_accDescription;|72:    property accRole[varChild: OleVariant]: OleVariant read Get_accRole;|74:    property accState[varChild: OleVariant]: OleVariant read Get_accState;|72:    property accHelp[varChild: OleVariant]: WideString read Get_accHelp;|108:    property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;|96:    property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;|52:    property accFocus: OleVariant read Get_accFocus;|60:    property accSelection: OleVariant read Get_accSelection;|90:    property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;|6:  end;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|33:     onResStr,inX,inY: THI_Event;|47:     procedure doGet(var dt: TData; idx: word);|0:|5: end;|1: |98:function AccessibleObjectFromPoint(Pt: TPoint; var Acc: IAccessible; var Child: Variant): HRESULT;|68:    stdcall; external 'OleAcc.dll' name 'AccessibleObjectFromPoint';|0:|1: |0:|14:implementation|0:|3:var|19:  OldPoint: TPoint;|0:|28:procedure THiAsmClass.doGet;|3:var|12:  P: TPoint;|17:  A: IAccessible;|13:  V: Variant;|12:  s: string;|5:begin|29:  P.X := ToIntegerEvent(inX);|29:  P.Y := ToIntegerEvent(inY);|52:  if (P.X <> OldPoint.X) or (P.Y <> OldPoint.Y) then|7:  begin|18:    OldPoint := P;|57:    if Succeeded(AccessibleObjectFromPoint(P, A, V)) then|9:    begin|24:      s := A.accName[V];|31:      _hi_onEvent(onResStr, s);|39:    end else _hi_onEvent(onResStr, '');|6:  end;|4:end;|0:|4:end.|
 link(onResStr,8657696:doEvent1,[])
 link(inX,12464508:MouseX,[])
 link(inY,12464508:MouseY,[])
}
Add(Hub,8657696,280,273)
{
 link(onEvent1,11373442:doText,[])
 link(onEvent2,4315181:doFind,[(317,286)(317,251)])
}
Add(FileSearch,3509777,336,119)
{
 SubDir=1
 Include=2
 link(onSearch,12272121:doAdd,[])
 link(Dir,6630974:Var2,[])
}
Add(Hub,3695030,140,98)
{
 link(onEvent1,4319803:doWork2,[])
 link(onEvent2,4565006:doStartWatch,[(172,111)(172,125)])
}
Add(Dir,8113355,336,42)
{
}
Add(Hub,15523515,294,98)
{
 link(onEvent1,12272121:doClear,[(395,104)(395,132)])
 link(onEvent2,3509777:doSearch,[(322,111)(322,125)])
}
Add(ArrayFind,4315181,434,245)
{
 Partial=0
 CaseSensitive=0
 Point(doPartial)
 link(onFind,12272121:doGetString,[(478,251)(478,209)(408,209)(408,167)])
 link(Array,12272121:Array,[])
 link(Value,11373442:Caption,[(454,233)(398,233)(398,317)(342,317)])
}
Add(StrList,12272121,420,119)
{
 AddType=1
 Point(doGetString)
 Point(onGetString)
 link(onGetString,12913422:doText,[])
}
Add(GMouseHook,12464508,224,210)
{
 link(onMouseMove,12351837:doGet,[(267,216)(267,258)(212,258)(212,279)])
}
Add(Label,13086045,56,35)
{
 Width=600
 Height=30
 Color=32768
 Font=[Arial,16,1,65535,204]
 Caption="ИМЯ ФАЙЛА ПОД КУРСОРОМ НА РАБОЧЕМ СТОЛЕ"
 AutoSize=1
 Alignment=2
}
Add(Label,13544903,126,35)
{
 Top=50
 Width=600
 Height=30
 Color=32768
 Font=[Arial,16,1,65535,204]
 Caption="ПУТЬ К ФАЙЛУ ИЛИ ПАПКЕ ПОД КУРСОРОМ"
 AutoSize=1
 Alignment=2
}
Add(DirectoryChanges,4565006,189,119)
{
 Flags=3
 link(onChange,4319803:doWork3,[(242,125)])
 link(DirName,6630974:Var1,[(195,89)])
}
Add(HubEx,4319803,238,98)
{
 link(onEvent,15523515:doEvent1,[])
}
Add(GetDataEx,6630974,343,84)
{
 link(Data,8113355:DesktopDir,[])
}
карма: 0

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#12: 2016-07-21 19:26:42 ЛС | профиль | цитата
Vaduha писал(а):
вот такой вариант получился

Увы, но отображает не все файлы на рабочем столе, на некоторых пишет название, но нет пути.
карма: 22

0
Ответов: 57
Рейтинг: 0
#13: 2016-07-21 19:32:23 ЛС | профиль | цитата
у меня все отображает кроме значков раб стола : корзина , панель управления и мой компьютер - не видит .
карма: 0

0
файлы: 1code_37488.txt [6.3KB] [268]
Разработчик
Ответов: 26153
Рейтинг: 2127
#14: 2016-07-21 19:48:36 ЛС | профиль | цитата
Vaduha, а почему не отметил, что применен нестандартный компонент GMouseHook, которого нет в пакете?
карма: 22

0
Ответов: 57
Рейтинг: 0
#15: 2016-07-21 19:51:11 ЛС | профиль | цитата
что значит не отметил ? нельзя схемы выкладывать с нестандартными компонентами ?
я не знал если что ...
а GMouseHook я испоьзовал потому что с таймером у меня рунтайм выскакивал при открытии какой нибудь папки ,
а так вроде норм работает .
карма: 0

0
ФорумыПомощь по пакетуВозможно ли получить полный путь к файлу или папке под курсором ? ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика