Func ShowFileInfo
Local f, p, hl, links, linkout
Local uwdx = %COMMANDER_PATH% & "\Plugins\uwdx\uwdx.exe"
If Not FileExist(uwdx) Then
MsgBox("Не найден " & uwdx)
Return
Endif
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
ProcessExecGetOutput stream %uwdx% "/I NTFSFileStreams.wdx ""%f%"" ""Streams Count"""
if stream > 0 then
linkout = linkout & auCRLF & auCRLF & "NTFS Streams: " & stream & auCRLF
linkout = linkout & auCRLF
ProcessExecGetOutput streams %uwdx% "/I /C:1251 NTFSFileStreams.wdx ""%f%"" ""All Streams One Line"""
for i=1 to stream
linkout = linkout & StrTrim(StrPart(streams, ';', i)) & auCRLF
i = i + 1
next
ProcessExecGetOutput size %uwdx% "/I /C:1251 NTFSFileStreams.wdx ""%f%"" ""All Streams Size"""
linkout = linkout & auCRLF & "Streams Size " & size
endif
MsgBox(linkout)
EndFunc
|