50 lines
1.6 KiB
XML
50 lines
1.6 KiB
XML
<?xml version="1.0"?>
|
|
<!--
|
|
Copyright 2016-2020 Amebis
|
|
|
|
This file is part of InstFont.
|
|
|
|
InstFont is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
InstFont is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with InstFont. If not, see <http://www.gnu.org/licenses/>.
|
|
-->
|
|
<package>
|
|
<job id="InstFont">
|
|
<runtime>
|
|
<description>Installs font - Amebis, Copyright © 2016-2017</description>
|
|
<unnamed name="<Shortcut.lnk>" required="true" helpstring="Shortcut file to create"/>
|
|
<example>
|
|
Example:
|
|
InstFont.wsf "My Font.ttf"
|
|
</example>
|
|
</runtime>
|
|
<reference object="Scripting.FileSystemObject"/>
|
|
<script language="JScript"><![CDATA[
|
|
if (WScript.Arguments.Unnamed.Length < 1) {
|
|
WScript.Arguments.ShowUsage();
|
|
WScript.Quit(1);
|
|
}
|
|
|
|
var
|
|
fso = WScript.CreateObject("Scripting.FileSystemObject"),
|
|
wap = WScript.CreateObject("Shell.Application"),
|
|
filename = fso.GetAbsolutePathName(WScript.Arguments.Unnamed(0)),
|
|
folder = wap.Namespace(fso.GetParentFolderName(filename)),
|
|
file = folder.ParseName(fso.GetFileName(filename));
|
|
|
|
file.InvokeVerb("Install");
|
|
|
|
WScript.Quit(0);
|
|
]]></script>
|
|
</job>
|
|
</package>
|