[转载]教你如何用Delphi注册快捷方式

  信息来源：CSDN


　　这里我们用到了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';


　　OpenKey(tmp, false);
　　case Location of
　　ST_DESKTOP: sDir :=ReadString('Desktop');
　　ST_SENDTO: sDir :=ReadString('SendTo');
　　ST_STARTMENU: sDir :=ReadString('Start Menu');
　　ST_QUICKLAUNCH:
　　begin
　　sDir :=ReadString('AppData');
　　sDir :=sDir + '\Microsoft\Internet Explorer\Quick Launch';
　　end;
　　end;
　　//生成快捷方式文件名
　　lName :=ChangeFileExt(FileName, '.Lnk');
　　lName :=ExtractFileName(lName);
　　if sDir<>&#39;&#39; then
　　begin
　　//生成快捷方式全路径名
　　wFileName :=sDir + &#39;\&#39; + lName;
　　//保存生成的快捷方式文件
　　pFile.Save(PWChar(wFileName), false);
　　end;

　　Free;
　　end;
　　end;
　　上面声明了一个过程
　　下面应用它
　　var
　　fName :string;
　　fDesc :string;
　　fArgu :string;
　　begin
　　fName :=Application.ExeName;
　　fDesc :=&#39;Delphi 7.0 创建的快捷方式－－桌面&#39;;
　　fArgu :=&#39;无参数&#39;;
　　CreateShortcut(fName,fDesc,fArgu, ST_DESKTOP);
　　end;
　　procedure TForm1.SpeedButton2Click(Sender: TObject);
　　var
　　fName :string;
　　fDesc :string;
　　fArgu :string;


　　begin
　　fName :=Application.ExeName;
　　fDesc :=&#39;Delphi 7.0 创建的快捷方式－－发送到。。。&#39;;
　　fArgu :=&#39;无参数&#39;;
　　CreateShortcut(fName,fDesc,fArgu, ST_SENDTO);
　　end;
　　procedure TForm1.SpeedButton3Click(Sender: TObject);
　　var
　　fName :string;
　　fDesc :string;
　　fArgu :string;
　　begin
　　fName :=Application.ExeName;
　　fDesc :=&#39;Delphi 7.0 创建的快捷方式－－开始菜单&#39;;
　　fArgu :=&#39;无参数&#39;;
　　CreateShortcut(fName,fDesc,fArgu, ST_STARTMENU);

　　end;

　　procedure TForm1.SpeedButton4Click(Sender: TObject);
　　var
　　fName :string;
　　fDesc :string;
　　fArgu :string;
　　begin
　　fName :=Application.ExeName;
　　fDesc :=&#39;Delphi 7.0 创建的快捷方式－－快速启动&#39;;
　　fArgu :=&#39;无参数&#39;;
　　CreateShortcut(fName,fDesc,fArgu, ST_QUICKLAUNCH);
　　end;

　　procedure TForm1.SpeedButton5Click(Sender: TObject);
　　var
　　sName :string;
　　sAddress :string;
　　begin
　　sName :=&#39;P哥网&#39;;
　　sAddress :=&#39;http://www.pggpjj.com&#39;;
　　CreateInternetShortcut(sName, sAddress);
　　end;