教你如何用Delphi注册快捷方式

　　这里我们用到了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 :string; 　　spath :string; 　　wFileName :WideString; 　　mReg :TRegistry; 　　key :string; 　　tmp :string; 　　begin 　　cObj :=CreateComObject(CLSID_ShellLink); //创建COM对象 　　sLink :=cObj as IShellLink; //COM对象转化为IShellLink型接口 　　pFile :=cObj as IPersistFile; //COM对象转化为IPersistFile型接口 　　//获取路径 　　sPath :=ExtractFilePath(FileName); 　　with sLink do begin 　　SetPath(PChar(FileName)); //设置执行文件名 　　SetArguments(PChar(arguements)); //设置执行参数 　　SetDescription(Pchar(Description)); //设置描述信息 　　SetWorkingDirectory(PChar(sPath)); //设置工作路径，即执行程序所在目录 　　end; 　　//获取各快捷方式的实际目录 　　mReg :=TRegistry.Create; 　　with mReg do begin 　　RootKey :=HKEY_CURRENT_USER; 　　key :=REGSTR_PATH_EXPLORER; //Delphi在单元RegStr中定义的常量 　　tmp :=key + '\Shell Folders';