went

test.ps1

$shell = New-Object -ComObject 'WScript.Shell' ; $arr = @()
$args | foreach { $arr += $shell.CreateShortcut($_).TargetPath }
$s = $arr -join "`r`n" ; Write-Host $s
Set-Clipboard -Value $s
复制代码

powershell test.ps1 "C:\Users\Public\Desktop\腾讯QQ.lnk"  "F:\Desktop\微信.lnk"

went

[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'System.Collections.Specialized.StringCollection'
$args | foreach { 
    $file_str = $shell.CreateShortcut($_).TargetPath
    Write-Host $file_str
    [void]$paths.Add($file_str)
}
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)
复制代码

went

test.bat 管理员运行

@echo off & cd /d "%~dp0"
set "ps1=F:\Desktop\test.ps1"
reg add "HKCR\lnkfile\shell\复制源到剪贴板\command" /ve /d "powershell \"%ps1%\" %%1" /f 
pause&exit
复制代码

F:\Desktop\test.ps1
只支持单个文件右键

went

回复 7# g495326

[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'System.Collections.Specialized.StringCollection'
$args | foreach { 
    if($_.EndsWith('.lnk')){
        $file_str = $shell.CreateShortcut($_).TargetPath
    } else {
        $file_str = $_
    }
    Write-Host $file_str
    [void]$paths.Add($file_str)
}
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)
复制代码

went

using namespace 'Microsoft.PowerShell.Commands.AddType.AutoGeneratedTypes';cls
[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
Add-Type -Name 'WinApi' -MemberDefinition '[DllImport("user32.dll")]public static extern short GetKeyState(uint VK);'
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'System.Collections.Specialized.StringCollection'
if([WinApi]::GetKeyState(16) -band 0x8000){ $paths = [System.Windows.Forms.Clipboard]::GetFileDropList() }
$args | foreach { [void]$paths.Add($shell.CreateShortcut($_).TargetPath) }
$paths = $paths | Select-Object -Unique | Where-Object {[System.IO.File]::Exists($_)} 
[System.Windows.Forms.Clipboard]::SetFileDropList($paths)
$paths
复制代码

回复 9# g495326

went

using namespace 'Microsoft.PowerShell.Commands.AddType.AutoGeneratedTypes'
using namespace 'System.Windows.Forms'
using namespace 'System.Collections.Specialized';cls
[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms')
Add-Type -Name 'WinApi' -MemberDefinition '[DllImport("user32.dll")]public static extern short GetKeyState(uint VK);'
$shell = New-Object -ComObject 'WScript.Shell'
$paths = New-Object 'StringCollection'
$arr_err = New-Object 'System.Collections.ArrayList'
if([WinApi]::GetKeyState(16) -band 0x8000){ write-host 'shift';$paths = [Clipboard]::GetFileDropList() }
$args | foreach { [void]$paths.Add($_) }
$paths = &{
	$paths | Select-Object -Unique | foreach {
		#目录
		if([System.IO.Directory]::Exists($_)){ return $_ }
		#文件
		if([System.IO.File]::Exists($_)){
			#lnk文件
			if($_.EndsWith('.lnk')){
				$p = $shell.CreateShortcut($_).TargetPath
				if([System.IO.File]::Exists($p)){ return $p }
				if([System.IO.Directory]::Exists($p)){ return $p }
                [void]$arr_err.Add(('{0} -> {1}' -f $_,$p))
				return $null
			}
			#其它文件
			return $_
		}
	} | Select-Object -Unique
}
if($paths.Count -gt 0){
	[Clipboard]::SetFileDropList($paths)
	'ok'
	$paths
	'-----------'
}
if($arr_err.Count -gt 0){
	'fail'
	$arr_err
	'-----------'
	pause
}
复制代码

went

源文件报错第28行改为

if($paths.Count -gt 0){ [Clipboard]::SetFileDropList($paths) }
复制代码

检测shift要加载dll耗时,只有多按一点时间 5-8行都是

went

回复 15# g495326


    21行 return $null 改为

Write-Host ('未找到源 {0} -> {1}' -f $_,$p);pause
return $null
复制代码

went

回复 17# g495326


    12楼改了,你直接复制

went

回复 20# g495326


   我win11,用不了发送到菜单

went

win11

went

回复 24# g495326


    对话框选择文件我测试是ok的


你在脚本最后添加一行 pause
看看是否有报错

went

回复 27# g495326


    目标都变了不可能还能定位到
    上面的意思是lnk目标改变,还是能解析到lnk里原先保存的源目标,而不至于报错