Add(MainForm,14681279,63,84)
{
 link(onCreate,188991:doString,[])
}
Add(WinExec,9513980,161,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,3924364:doString,[])
}
Add(FormatStr,188991,112,98)
{
 Mask="Add-Type -AssemblyName System.Windows.Forms\r\n$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{ \r\n    InitialDirectory = [Environment]::GetFolderPath('Desktop')\r\n    Title = 'Выберите документ Word '\r\n    Multiselect = $true \r\n    Filter = 'Documents (*.doc*)|*.doc*|All|*.*'\r\n}\r\n[void] $FileBrowser.ShowDialog()\r\n$FileBrowser.FileNames\r\n "
 link(onFString,9513980:doConsoleExec,[])
}
Add(WinExec,13614633,259,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,13388704:doWork2,[])
 link(onConsoleError,13388704:doWork3,[(312,111)])
}
Add(Memo,7717528,392,98)
{
 Left=550
 Top=160
 Align=5
 ScrollBars=3
}
Add(Charset,12271718,336,98)
{
 link(onCharset,7717528:doAdd,[])
}
Add(HubEx,13388704,308,98)
{
 link(onEvent,12271718:doCharset,[])
}
Add(FormatStr,3924364,210,98)
{
 DataCount=1
 Mask="$tmp = Get-ChildItem %1 \r\n$pathname = $tmp.DirectoryName \r\n$filename = $tmp.Name \r\n\r\n$shellobj = New-Object -ComObject Shell.Application \r\n$folderobj = $shellobj.namespace($pathname) \r\n$fileobj = $folderobj.parsename($filename) \r\n$results = $($folderobj.getDetailsOf($fileobj, $index))\r\n$($folderobj.getDetailsOf($fileobj, 2)) + ' - ' + $($folderobj.getDetailsOf($fileobj, 165))\r\n'Расположение - ' + $($folderobj.getDetailsOf($fileobj, 194))\r\n'Количество страниц - ' + $($folderobj.getDetailsOf($fileobj, 157))\r\n'Количество слов - ' + $($folderobj.getDetailsOf($fileobj, 160))\r\n\r\n\r\n"
 link(onFString,13614633:doConsoleExec,[])
}

Add(MainForm,14681279,105,84)
{
 Width=665
 Height=432
 Caption="Получение всех не пустых свойст файла"
 link(onCreate,188991:doString,[])
}
Add(Memo,7717528,322,98)
{
 Width=649
 Height=393
 Align=5
 Font=[Consolas,12,0,0,204]
 ScrollBars=3
}
Add(Charset,12271718,273,98)
{
 link(onCharset,7717528:doAdd,[])
}
Add(HubEx,13388704,252,98)
{
 link(onEvent,12271718:doCharset,[])
}
Add(WinExec,9513980,210,84)
{
 FileName="powershell.exe"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,13388704:doWork2,[])
 link(onConsoleError,13388704:doWork3,[(256,111)])
}
Add(FormatStr,188991,161,98)
{
 Mask="Add-Type -AssemblyName System.Windows.Forms\r\nAdd-Type -AssemblyName System.IO.Compression.FileSystem\r\n\r\n$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{ \r\n    InitialDirectory = [Environment]::GetFolderPath('Desktop')\r\n    Title = 'Выберите документ Word '\r\n    Multiselect = $true \r\n    Filter = 'Documents (*.docx)|*.docx|All|*.*'\r\n}\r\n[void] $FileBrowser.ShowDialog()\r\n\r\n$filename = $FileBrowser.FileNames\r\n\r\n$zip = [System.IO.Compression.ZipFile]::Open($filename, 'Read')\r\n$propsentry = $zip.GetEntry('docProps/app.xml')\r\nIf ($propsentry -ne $null) {\r\n    $stream = $propsentry.Open()\r\n    $reader = New-Object System.IO.StreamReader $stream\r\n    $content = $reader.ReadToEnd()\r\n    $xmldoc = [xml]$content\r\n    $xmldoc.Properties \r\n}\r\n$zip.Dispose() "
 link(onFString,9513980:doConsoleExec,[])
}

1 VERSIONINFO
 FILEVERSION 1,0,0,1
 PRODUCTVERSION 1,0,0,1
 FILEFLAGSMASK 0x17L
 FILEOS 0x4L
 FILETYPE 0x1L
 FILESUBTYPE 0x0L
BEGIN
    BLOCK "StringFileInfo"
    BEGIN
        BLOCK "041904b0"
        BEGIN
            VALUE "FileDescription", "%fdesname"
            VALUE "FileVersion", "%ver"
            VALUE "InternalName", "%pname"
            VALUE "LegalCopyright", "Copyright (C) 2022"
            VALUE "OriginalFilename", "%fname"
            VALUE "ProductName", "%pname"
            VALUE "ProductVersion", "%ver"
            VALUE "E-mail", "%mail"
        END
    END
    BLOCK "VarFileInfo"
    BEGIN
        VALUE "Translation", 0x419, 1200
    END
END