📄 add_a_shortkey_desktop.htm
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-size: 9pt}
-->
</style></head>
<body bgcolor="#FFFFFF">
<p align="center"> <b><br>
如何添加桌面快捷？ </b></p>
<p>一样的风格，请看源代码：<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
tmpObject : IUnknown;<br>
tmpSLink : IShellLink;<br>
tmpPFile : IPersistFile;<br>
PIDL : PItemIDList;<br>
StartupDirectory : array[0..MAX_PATH] of Char;<br>
StartupFilename : String;<br>
LinkFilename : WideString;<br>
begin<br>
StartupFilename := 'c:\windows\notepad.exe';<br>
tmpObject := CreateComObject(CLSID_ShellLink);<br>
tmpSLink := tmpObject as IShellLink;<br>
tmpPFile := tmpObject as IPersistFile;<br>
tmpSLink.SetPath(pChar(StartupFilename));<br>
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));<br>
SHGetSpecialFolderLocation(0,<br>
CSIDL_DESKTOPDIRECTORY,<br>
PIDL);<br>
SHGetPathFromIDList(PIDL,<br>
StartupDirectory);<br>
LinkFilename := StartupDirectory + '\MyNotepad.lnk';<br>
tmpPFile.Save(pWChar(LinkFilename),FALSE);<br>
end; </p>
<p> </p>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -