Orion9
|
 Posted: Thu Mar 21, 2024 11:30 Post subject: |
 |
|
jentoso
А с учетом нового ключика у вас будет работать?
| Code: | ControlSetMouseAction /L /K:C 3 ShowFileInfo
Func ShowFileInfo
Local f, p, hl, links, linkout
Local uwdx = %COMMANDER_PATH% & "\Plugins\uwdx\uwdx.exe"
f = StrPart(ItemAtCursor('text'), auTAB, 1)
p = SendMessage(RequestInfo(ItemAtCursor('panel') + 8), 13, 500, "" , 2)
p = StrLeft(p, StrPos(p, "\", -1))
f = p & f
ProcessExecGetOutput hl %uwdx% "/I NTLinks.wdx ""%f%"" HLNK_Count"
if (hl+0) = 0 then
MsgBox(hl)
Return
endif
ProcessExecGetOutput links %uwdx% "/I /C:1251 NTLinks.wdx ""%f%"" HLNK_Paths 0"
linkout = "Hard Links: " & hl & auCRLF
linkout = linkout & auCRLF
for i=1 to hl
linkout = linkout & StrTrim(StrPart(links, ',', i)) & auCRLF
i = i + 1
next
MsgBox(linkout)
EndFunc |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
