ZRCola/bin/MkLnk.wsf
Simon Rozman 47d3884af3 Update Copyright and build year
Signed-off-by: Simon Rozman <simon@rozman.si>
2022-01-07 11:38:32 +01:00

72 lines
2.6 KiB
XML

<?xml version="1.0" encoding="utf-8"?>
<!--
SPDX-License-Identifier: GPL-3.0-or-later
Copyright © 1991-2022 Amebis
-->
<package>
<job id="MkLnk">
<runtime>
<description>Creates shortcut to a program - Amebis, Copyright © 1991-2022</description>
<unnamed name="&lt;Shortcut.lnk&gt;" required="true" helpstring="Shortcut file to create"/>
<unnamed name="&lt;Target&gt;" required="true" helpstring="Target file the shortcut invokes"/>
<named name="A" type="string" required="false" helpstring="Command line arguments"/>
<named name="F" type="string" required="false" helpstring="Start in folder"/>
<named name="S" type="string" required="false" helpstring="Shortcut key (Example: &quot;ALT+CTRL+F&quot;)"/>
<named name="R" type="string" required="false" helpstring="Run (Valid values: 1=Normal Window, 3=Maximized, 7=Minimized)"/>
<named name="C" type="string" required="false" helpstring="Comment"/>
<named name="I" type="string" required="false" helpstring="Icon (Example: &quot;SHELL32.DLL,1&quot;)"/>
<example>
Example:
MkLnk.wsf &quot;%USERPROFILE%\Desktop\My shortcut.lnk&quot; &quot;%windir%\notepad.exe&quot; /R:3 /C:&quot;Starts the Notepad Maximized&quot;
</example>
</runtime>
<script language="JScript"><![CDATA[
if (WScript.Arguments.Unnamed.Length < 2) {
WScript.Arguments.ShowUsage();
WScript.Quit(1);
}
var
wsh = WScript.CreateObject("WScript.Shell");
try {
var link = wsh.CreateShortcut(WScript.Arguments.Unnamed(0));
// Set shortcut's target.
link.TargetPath = WScript.Arguments.Unnamed(1);
if (WScript.Arguments.Named.Exists("A"))
link.Arguments = WScript.Arguments.Named("A");
if (WScript.Arguments.Named.Exists("F"))
link.WorkingDirectory = WScript.Arguments.Named("F");
if (WScript.Arguments.Named.Exists("S"))
link.HotKey = WScript.Arguments.Named("S");
if (WScript.Arguments.Named.Exists("R"))
link.WindowStyle = parseInt(WScript.Arguments.Named("R"), 10);
if (WScript.Arguments.Named.Exists("C"))
link.Description = WScript.Arguments.Named("C");
if (WScript.Arguments.Named.Exists("I"))
link.IconLocation = WScript.Arguments.Named("I");
link.Save();
} catch (err) {
// Clean-up!
try {
// Delete LNK file.
var fso = WScript.CreateObject("Scripting.FileSystemObject");
fso.DeleteFile(WScript.Arguments.Unnamed(0), true);
} catch (err2) {}
throw err;
}
WScript.Quit(0);
]]></script>
</job>
</package>