add_a_shortkey_desktop.htm

来自「对于学习很有帮助」· HTM 代码 · 共 43 行

HTM

43 行

<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>&nbsp;</p>
<p>&nbsp; </p>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

add_a_shortkey_desktop.htm

add_a_shortkey_desktop.htm - 源码说明

⌨️ 快捷键说明