- @echo off
- Set str=%*
- CALL Set str=%%str:%1=%%
- mshta VBScript:Execute("Set aaa=CreateObject(""WScript.Shell""):Set bbb=aaa.CreateShortcut(aaa.SpecialFolders(""Desktop"") & ""\%~n1.lnk""):bbb.TargetPath=""%~1"":bbb.Arguments=""%str%"":bbb.WorkingDirectory=""%~dp1"":bbb.Save:close")
- pause
复制代码 另存为crelnk.cmd
使用时crelnk "DPNX" 参数 |