midipix / build / midipix_build

Forked from build/midipix_build 4 years ago
Clone

Blame Create `Midipix mintty shell' shortcut.vbs

Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Set WshShell = CreateObject("WScript.Shell")
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
LinkPath = WshShell.CurrentDirectory + "\Midipix mintty shell.lnk"
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
If WScript.Arguments.Count = 0 Then
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	MinttyPath = "C:\cygwin64\bin\mintty.exe"
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Else
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	MinttyPath = WScript.Arguments(0)
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
End If
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5

Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Set fso = CreateObject("Scripting.FileSystemObject")
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
If not (fso.FileExists(LinkPath)) Then
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	Set oMyShortCut = WshShell.CreateShortcut(LinkPath)
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortCut.WindowStyle = 4
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortcut.IconLocation = MinttyPath
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortCut.TargetPath = MinttyPath
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortCut.Arguments = "-i /Cygwin-Terminal.ico -e sh midipix.sh"
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortCut.WorkingDirectory = WshShell.CurrentDirectory
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
	oMyShortCut.Save
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
End If