星辰日月00

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

摘要： 在 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... 阅读全文