正在阅读：教你如何用Delphi注册快捷方式教你如何用Delphi注册快捷方式

2004-10-09 12:19 出处：CSDN 作者：pggpjj 责任编辑：huangpeidan

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

察看评论详细内容我要发表评论

作者笔名	简短内容	发表时间
:

2回顶部

　　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<>'' then
　　begin
　　//生成快捷方式全路径名
　　wFileName :=sDir + '\' + lName;
　　//保存生成的快捷方式文件
　　pFile.Save(PWChar(wFileName), false);
　　end;

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

察看评论详细内容我要发表评论

作者笔名	简短内容	发表时间
:

3回顶部

　　begin
　　fName :=Application.ExeName;
　　fDesc :='Delphi 7.0 创建的快捷方式－－发送到。。。';
　　fArgu :='无参数';
　　CreateShortcut(fName,fDesc,fArgu, ST_SENDTO);
　　end;

　　procedure TForm1.SpeedButton3Click(Sender: TObject);
　　var
　　fName :string;
　　fDesc :string;
　　fArgu :string;
　　begin
　　fName :=Application.ExeName;
　　fDesc :='Delphi 7.0 创建的快捷方式－－开始菜单';
　　fArgu :='无参数';
　　CreateShortcut(fName,fDesc,fArgu, ST_STARTMENU);

　　end;

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

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