blob: ce8e10d47760b13c9ed2f2e0e0b0bb28c5b1c6ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Set WshShell = CreateObject("WScript.Shell")
If WScript.Arguments.Count = 0 Then
CygwinPath = "C:\cygwin64"
Else
CygwinPath = WScript.Arguments(0)
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set oMyShortCut = WshShell.CreateShortcut(WshShell.CurrentDirectory + "\Midipix shell.lnk")
oMyShortCut.Arguments = "midipix.sh"
oMyShortcut.IconLocation = CygwinPath + "\Cygwin-Terminal.ico"
oMyShortCut.TargetPath = CygwinPath + "\bin\sh.exe"
oMyShortCut.WindowStyle = 4
oMyShortCut.WorkingDirectory = WshShell.CurrentDirectory
oMyShortCut.Save
|
