.NET捷徑(ShortCut)控制
Abstract
- Component
- ShortCut Type
- Control Method
- Text Edit Control Method
- Windows Script Host Method Control Method
- Shell.Application Control Method
- Reference
- Download
Component
一般來說，ShortCut主要是由下面幾個元素所構成：
- Target
- Working directory
- HotKey
- Running style
- Description
- Icon
ShortCut Type
- Url ShortCut-Like browser 's shortcut,which extention file name is "url".
- Application ShortCut-Normal application shortcut,which extention file name is "lnk".
Control Method
- Text Edit-Use to control the shortcut like browser use for.
- Windows Script Host (WSH)
- Shell.Application
- API
Text Edit Control Method
依照下圖格式範本建立副檔名為"url"的文字檔即可，這類型的捷徑控制只是一般的文字檔處理。
若是要造Application類型的捷徑，則如下圖把"URL=http://..." 改成"URL=file:///..."即可。
範例程式可參考 C# - Creating URL shortcut to desktop 。當然你也可以不使用該範例的方法，而改透過Win32 Api去用存取Ini檔的方式來控制此種捷徑格式。
Windows Script Host Method Control Method
對於VB.NET的開發員來說。欲使用WSH，首先要利用CreateObject("WScript.Shell")建造WshShell物件。
Dim objWS As Object = CreateObject("WScript.Shell")
接著使用WshShell物件的CreateShortCut回傳的物件及其方法、屬性去控制捷徑。以建造捷徑為例，只要用CreateShortCut取得物件後，把要設定的值設定給對應的屬性後，呼叫該物件的Save方法即可。
With objWS.CreateShortCut(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & Replace(strEXE, ".EXE", ".LNK", 1, , 1))
.TargetPath = objWS.ExpandEnvironmentStrings(strFolder & "\" & strEXE)
.WorkingDirectory = strFolder
.Description = strDesc
.WindowStyle = 4
.IconLocation = objWS.ExpandEnvironmentStrings(strFolder & "\" & strEXE & ",0")
.Save()
End With
值得一提的是，雖然該WshShell物件的方法名稱為CreateShortCut。但是並不表示它只能用來建立捷徑，它也能用來讀取捷徑的設定。讀取時先用CreateShortCut取得物件後，直接從該物件對應的屬性去取出設定即可。
With objWS.CreateShortCut(lnkFile)
Return .TargetPath
End With
P.S.C#的開發員請參考 [C#]用2种方法创建快捷方式.(Visual Studio .Net 2005)
Shell.Application Control Method
欲使用此方法控制捷徑，如下圖所示，首先要加入Com參考"Microsoft Shell Controls And Automation"。
加入參考後匯入Shell32命名空間，建立Shell物件實體，並利用Shell物件實體方法帶入檔案路徑與檔名去取得ShellLinkObject物件。
VB.NET
Dim s As New Shell
Return s.NameSpace(My.Computer.FileSystem.GetParentPath(file)).ParseName(My.Computer.FileSystem.GetName(file)).GetLink
C#
Shell s = new Shell();
return (ShellLinkObject)s.NameSpace(Path.GetDirectoryName(lnkFile)).ParseName(Path.GetFileName(lnkFile)).GetLink;
再透過ShellLinkObject物件的屬性與方法即可對捷徑進行控制。
VB.NET
Function GetLnkArguments(ByVal shortCutFile As String) As String
Return GetLnkObj(shortCutFile).Arguments
End Function
Function GetLnkWorkingDirectory(ByVal shortCutFile As String) As String
Return GetLnkObj(shortCutFile).WorkingDirectory
End Function
Function GetLnkPath(ByVal shortCutFile As String) As String
Return GetLnkObj(shortCutFile).Path
End Function
C#
private String GetLnkArguments(string shortCutFile)
{
return GetLnkObj(shortCutFile).Arguments;
}
private String GetLnkWorkingDirectory(string shortCutFile)
{
return GetLnkObj(shortCutFile).WorkingDirectory;
}
private String GetLnkPath(string shortCutFile)
{
return GetLnkObj(shortCutFile).Path;
}
這邊須注意的是，使用此方法建立捷徑時，若捷徑檔不存在於指定位置，則須先建立個空的捷徑檔案，才可取得ShellLinkObject物件。
VB.NET
If Not My.Computer.FileSystem.FileExists(shortCutFile) Then
File.Create(shortCutFile).Close()
End If
C#
if (!My.Computer.FileSystem.FileExists(shortCutFile))
{
File.Create(shortCutFile).Close();
}
取得ShellLinkObject物件後，捷徑的建立與寫入也就只是設定對應的屬性值後呼叫Save方法。
VB.NET
lnkObj = GetLnkObj(shortCutFile)
With lnkObj
.Arguments = arguments
.Description = description
.Path = path
.WorkingDirectory = workingDirectory
.ShowCommand = showCommand
.Save()
End With
C#
lnkObj = GetLnkObj(shortCutFile);
lnkObj.Arguments = arguments;
lnkObj.Description = description;
lnkObj.Path = path;
lnkObj.WorkingDirectory = workingDirectory;
lnkObj.ShowCommand = (int)showCommand;
lnkObj.Save(null);
Reference
- C# - Creating URL shortcut to desktop
- 微軟技術社群討論區-請問如何建立桌面捷徑和網頁捷徑?
- 強力鎯頭 の VB 部落-如何寫程式建立桌面捷徑 ( Shortcut )
- Code Project-Creating Shell Links (Shortcuts) in .NET Programs Using WSH
- [C#]用2种方法创建快捷方式.(Visual Studio .Net 2005)