星辰日月00

欲多则心散,心散则志衰,志衰则思不达也!

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2012年6月25日

摘要: 如何用Delphi创建快捷方式如果我们编写的程序能自动创建快捷方式,将大大方便用户的使用。但是如何在程序中建立快捷方式呢,下面我们给出一个实例。 由于我们是通过OLE Interface实现此功能的,因此在程序单元的us es语句中要加入ComObj、ActiveX和ShlObj这三个单元。如果不行,再加shellapi单元.在单元的声明部分加入以下代码:以下是引用片段: 1 procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String); 2 var 3 AnObj: IUnknown; 4 ShellL... 阅读全文
posted @ 2012-06-25 11:22 星辰日月00 阅读(2558) 评论(0) 推荐(0) 编辑

摘要: 在 uses 引用 shlobj,ActiveX,ComObj 1 在 uses 引用 shlobj,ActiveX,ComObj 2 3 procedure AddLink; 4 var 5 tmpObject : IUnknown; 6 tmpSLink : IShellLink; 7 tmpPFile : IPersistFile; 8 PIDL : PItemIDList; 9 StartupDirectory : array[0..MAX_PATH] of Char;10 LinkFilename : WideString;11 linkshort... 阅读全文
posted @ 2012-06-25 11:19 星辰日月00 阅读(276) 评论(0) 推荐(0) 编辑