这里我们用到了com对象
我要解释一下
com(compent object model)其实是microsoft提出的组件标准,它定义了组件和应用程序之间进行通信的标准,同时提供了组件程序运行时所需要的环境。这是书上讲的,现在我用口头语客串几句。Com可以用不同的语言编可以实现通信的效果,可以把它们看成一些二进制的可执行程序。
下面就是注册快捷方式
type
ShortcutType = (ST_DESKTOP, ST_SENDTO, ST_QUICKLAUNCH, ST_STARTMENU);//定义一个数据类型
procedure CreateShortcut(FileName :string; Description :string;
arguements :string; Location :ShortcutType);
var
cObj :IUnknown;
sLink :IShellLink;
pFile :IPersistFile;
sDir :string;
lName :strin...[ 查看全文 ]