Geöffnete Datei in Zwischenablage kopieren

Add-Type -A System.Windows.Forms
Add-Type –MemberDefinition '[DllImport("user32.dll")]public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);' -name Window -namespace W32  
# hide console
[void][W32.Window]::ShowWindow((Get-Process -id $pid).MainWindowHandle, 0)

# function to get pathes of currently opened office files
Function Get-OpenedOfficeFiles {
    # Powerpoint
    try{
        $pp = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Powerpoint.Application')  
        $pp.Presentations | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp)
    }catch{}
    # Visio
    try{
        $visio = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Visio.Application')  
        $visio.Documents | ? ObjectType -eq 10 | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($visio)
    }catch{}
    # Excel
    try{
        $excel = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Excel.Application')  
        $excel.Workbooks | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
    }catch{}
    # Word
    try{
        $word = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Word.Application')  
        $word.Documents | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($word)
    }catch{}
    # Publisher
    try{
        $pub = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Publisher.Application')  
        $pub.Documents | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pub)
    }catch{}
    # Acrobat (pdf)
    try{
        $acro = New-Object -Com "AcroExch.App"  
        $numdocs = $acro.GetNumAVDocs()
        if ($numdocs){
            0..($numdocs-1) | %{
                $js = $acro.GetAVDoc($_).GetPDDoc().GetJSObject()
                [Type]::GetType($js).InvokeMember('Path',[System.Reflection.BindingFlags]::GetProperty,$null,$js,$null) -replace '^/' -replace '/','\' -replace '^(\w+)(?=\\)','$1:'  
                [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($js)
            }
        }
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($acro)
    }catch{}
    [gc]::collect()
}

# get currently opened files
$files = Get-OpenedOfficeFiles | out-gridview -Title "Choose files to copy to clipboard" -PassThru  
if ($files){
    # Copy file list to clipboard
    [System.Windows.Forms.Clipboard]::SetFileDropList($files)
    [System.Windows.Forms.MessageBox]::Show("Files were copied to clipboard!","Information",0,64)  
}else{
    [System.Windows.Forms.MessageBox]::Show("No files selected!","Information",0,48)  
}

$ol = New-Object -Com Outlook.Application
$mail = $ol.CreateItem(0)
$files | %{[void]$mail.Attachments.Add($_)}
$mail.Display()

param(
    [Parameter(mandatory=$true)][string]$destination
)
# hide console
Add-Type –MemberDefinition '[DllImport("user32.dll")]public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);' -name Window -namespace W32  
[void][W32.Window]::ShowWindow((Get-Process -id $pid).MainWindowHandle, 0)
Add-Type -A System.Windows.Forms
Add-Type -A System.Drawing

# function to get pathes of currently opened office files
Function Get-OpenedOfficeFiles {
    # Powerpoint
    try{
        $pp = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Powerpoint.Application')    
        $pp.Presentations | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp)
    }catch{}
    # Visio
    try{
        $visio = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Visio.Application')    
        $visio.Documents | ? ObjectType -eq 10 | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($visio)
    }catch{}
    # Excel
    try{
        $excel = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Excel.Application')    
        $excel.Workbooks | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
    }catch{}
    # Word
    try{
        $word = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Word.Application')    
        $word.Documents | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($word)
    }catch{}
    # Publisher
    try{
        $pub = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Publisher.Application')    
        $pub.Documents | select -Expand Fullname
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pub)
    }catch{}
    # Acrobat (pdf)
    try{
        $acro = New-Object -Com "AcroExch.App"    
        $numdocs = $acro.GetNumAVDocs()
        if ($numdocs){
            0..($numdocs-1) | %{
                $js = $acro.GetAVDoc($_).GetPDDoc().GetJSObject()
                [Type]::GetType($js).InvokeMember('Path',[System.Reflection.BindingFlags]::GetProperty,$null,$js,$null) -replace '^/' -replace '/','\' -replace '^(\w+)(?=\\)','$1:'    
                [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($js)
            }
        }
        [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($acro)
    }catch{}
    [gc]::collect()
}

# get currently opened files
$files = Get-OpenedOfficeFiles
# if open files werde found
if ($files){
    # function which copies files to destination
    function InsertFiles {
        $lb.CheckedItems | Copy-Item -Destination $destination -Force
        $form.Close()
    }

    $form = New-Object System.Windows.Forms.Form -P @{
        ClientSize = '600,400'  
        Text = 'Insert open files'  
        add_Load = {
           $lb.Items.AddRange(@($files))
        }
    }
    $lb = New-Object System.Windows.Forms.CheckedListBox -P @{
        Size = '580,350'  
        Location = '10,10'  
        CheckOnClick = $true
        TabIndex = 0
        Font = [System.Drawing.Font]::new('Calibri',11)  
        Anchor = 'Top,Left,Right,Bottom'  
        add_SelectedIndexChanged = {
            $btnInsert.Enabled = $lb.CheckedItems.Count -gt 0
        }
        add_KeyDown = {
            if($_.KeyCode -eq [System.Windows.Forms.Keys]::Enter){
                InsertFiles
            }
        }
    }
    $btnInsert = New-Object System.Windows.Forms.Button -p @{
        Text = 'Insert'  
        Size = '180,30'  
        Location = '410,360'  
        Anchor = 'Bottom,Right'  
        Enabled = $false
        TabIndex = 1
        add_Click = {
            if ($lb.CheckedItems.Count -gt 0 ){
               InsertFiles
            }
        }
    }
    $btnSelectAll = New-Object System.Windows.Forms.Button -p @{
        Text = 'Select / Deselect all'  
        Location = '10,360'  
        Size = '150,30'  
        Anchor = 'Left,Bottom'  
        TabIndex = 2
        add_Click = {
            $checked = $lb.CheckedItems.Count -gt 0
            0..($lb.Items.Count-1) | %{$lb.SetItemChecked($_,!$checked)}
            $btnInsert.Enabled = $lb.CheckedItems.Count -gt 0
        }
    }
    $form.Controls.AddRange(@($lb,$btnSelectAll,$btnInsert))
    [void]$form.ShowDialog()
}else{
    [System.Windows.Forms.MessageBox]::Show("No open files detected!","Information",0,48)  
}

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Folder\shell\Insert open files\command]
@="powershell -EP Bypass -File \"C:\\Program Files\\insertopenfiles\\insertopenfiles.ps1\" \"%1\""  

powershell -EP Bypass -File "C:\Program Files\insertopenfiles\insertopenfiles.ps1" "%1"