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,[])
}