
CODE: [Copy to clipboard]@echo off
call :CreateShortcut "%~dp0Easy RM Tools.exe" -run:rmeditor
pause & exit /b
:CreateShortcut
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")
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |