Delphi创建Windows快捷方式

Posted YanJinrong

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi创建Windows快捷方式相关的知识,希望对你有一定的参考价值。

如果我们编写的程序能自动创建快捷方式,将大大方便用户的使用。但是如何在程序中建立快捷方式呢,下面我们给出一个实例。
由于我们是通过OLE Interface实现此功能的,因此在程序单元的us
es语句中要加入ComObj、ActiveX和ShlObj这三个单元。如果不行,再加shellapi单元.

在单元的声明部分加入以下代码:

以下是引用片段:

procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);
var
  AnObj: IUnknown;
  ShellLink: IShellLink;
  AFile: IPersistFile;
  FileName: WideString;
begin
  if UpperCase(ExtractFileExt(LinkPath)) <> '.LNK' then //检查扩展名是否正确
  begin
    raise Exception.Create('快捷方式的扩展名必须是 ′′LNK′′!');
    //若不是则产生异常
  end;
try
  OleInitialize(nil);//初始化OLE库,在使用OLE函数前必须调用初始化
  AnObj :=CreateComObject(CLSID_ShellLink); //根据给定的ClassID生成
  //一个COM对象,此处是快捷方式
  ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口
  AFile := AnObj as IPersistFile;//强制转换为文件接口
  //设置快捷方式属性,此处只设置了几个常用的属性
  ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件,一般为可执行文件
  ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数
  ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录
  ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述
  FileName := LinkPath;//把文件名转换为WideString类型
  AFile.Save(PWChar(FileName), False);//保存快捷方式
finally
 OleUninitialize;//关闭OLE库,此函数必须与OleInitialize成对调用
end;

end;

以上编写了一个通用函数,下面我们用它来创建快捷方式。在窗体中放置一

个按钮,双击按钮写入如下代码即可:

procedure TForm1.Button1Click(Sender: TObject);

var

  tmp: array [0..MAX—PATH] of Char;

  WinDir: string;

begin

  GetWindowsDirectory(tmp,MAX—PATH);

  WinDir:=String(tmp);

  if Length(WinDir) 〉 3 then

    WinDir:=WinDir+′\\′;//得到Windows的目录

  //在桌面上放置本程序的快捷方式

  CreateLink(ParamStr(0),′′,WinDir+′desktop\\′+Application.Tit

  le+′.lnk′,′Application.Title′);

end;

以上是关于Delphi创建Windows快捷方式的主要内容,如果未能解决你的问题,请参考以下文章

Delphi -- 创建 桌面发送到...快速启动栏开始菜单程序菜单右键菜 单

可以使用 Delphi 在 W7 中禁用任务切换键盘快捷键吗?

如何通过文件运行键盘快捷键?

Windows CE创建桌面快捷方式

windows 创建快捷方式 win32API C语言

windows 创建快捷方式 win32API C语言