【delphi源码】在桌面,程序组,开始菜单中建立自身的快捷方式(制作安装程序)
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj,ShlObj,Activex, StdCtrls;
type
TfrmMain = class(TForm)
btnDesktop: TButton;
btnProgram: TButton;
btnStartup: TButton;
procedure btnDesktopClick(Sender: TObject);
procedure btnStartupClick(Sender: TObject);
procedure btnProgramClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
LinkFilename : WideString;
implementation
{$R *.dfm}
procedure TfrmMain.btnDesktopClick(Sender: TObject);
begin
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);
//获得桌面的ItemIDList
Fillchar(StartupDirectory,Max_Path+1,0);
SHGetPathFromIDList(PIDL,StartupDirectory);
//获得路径
LinkFilename := StartupDirectory + '\Delphi.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);
//保存*.lnk文件
end;
procedure TfrmMain.btnStartupClick(Sender: TObject);
begin
SHGetSpecialFolderLocation(0,CSIDL_STARTUP,PIDL);
Fillchar(startupdirectory,Max_Path+1,0);
SHGetPathFromIDList(PIDL,StartupDirectory);
LinkFilename := StartupDirectory + '\Delphi.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);
end;
procedure TfrmMain.btnProgramClick(Sender: TObject);
begin
SHGetSpecialFolderLocation(0, CSIDL_PROGRAMS,PIDL);
Fillchar(startupdirectory,Max_Path+1,0);
SHGetPathFromIDList(PIDL,StartupDirectory);
if not DirectoryExists(StartupDirectory+'\Delphi') then
begin
MkDir(StartupDirectory+'\Delphi');
end;
LinkFilename := StartupDirectory + '\Delphi\Delphi.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
tmpObject := CreateComObject(CLSID_ShellLink);
//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink;
//取得接口
tmpPFile := tmpObject as IPersistFile;
//用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(Application.ExeName));
//设定程序所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(Application.ExeName)));
//设定工作目录
end;
end.
未经允许不得转载:亿券答案网 » 【delphi源码】在桌面,程序组,开始菜单中建立自身的快捷方式(制作安装程序)
相关推荐
- 中餐宴会为突出主题效果会进行台面装饰,有摆放插花,有将插花与工艺品进行组合。小型宴会进行桌面装饰时要注意()。
- 中餐宴会为突出主题效果会进行台面装饰,有摆放插花,有将插花与工艺品进行组合。小型宴会进行桌面装饰时要注意()。
- 现场桌面物品定置定位中全格法的标准是什么?
- 小李是桌面服务员,迎宾员领来4位客人,请问他应怎样为客人提供上菜前的服务工作?
- 现场桌面物品定置定位中直角法的标准是什么?
- 抓取及固定大小鼠时,可以提起鼠尾,置于清洁光滑的桌面上,即可作各种实验操作。
- Windows的“桌面”指的是( )。
- Windows操作题(3分)下面各项中,属于复制文件方法的有( )。利用快捷方式“Ctrl+C”复制文件鼠标直接拖动复
- Windows的“桌面”指的是( )。
- 【delphi源码】在桌面,程序组,开始菜单中建立自身的快捷方式(制作安装程序)