创建桌面和开始菜单快捷方式程序代码

//delphi版本：delphi7 //说明：新建一个Form1，添加一个PopupMenu1控件，当右键单击窗体时，出现菜单，创建快捷方式（桌面和开始菜单） unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus,shlObj,comObj,ActiveX,Registry, StdCtrls; //创建时在User中引用‘shlObj,comObj,ActiveX,Registry’ type TForm1 = class(TForm) PopupMenu1: TPopupMenu; N1: TMenuItem; Label1: TLabel; procedure N1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus,shlObj,comObj,ActiveX,Registry, StdCtrls; //创建时在User中引用‘shlObj,comObj,ActiveX,Registry’ type TForm1 = class(TForm) PopupMenu1: TPopupMenu; N1: TMenuItem; Label1: TLabel; procedure N1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.N1Click(Sender: TObject); var ShLink: IShellLink; PFile: IPersistFile; FileName: string; WFileName: WideString; Reg: TRegIniFile; AnObj: IUnknown; mb:integer; begin AnObj := CreateComObject(CLSID_ShellLink); //快捷方式的初始化 ShLink := AnObj as IShellLink; PFile := AnObj as IPersistFile; FileName := ParamStr(0); ShLink.SetPath(PChar(FileName)); ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName))); ShLink.SetDescription('软件作者：王松龄'+#13#10+' 版本：V1.0'); //右击快捷方式图标弹出的属性对话框中，在常规选项卡的备注中显示此内容信息 Reg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '\' + '在制品管理系统' + '.lnk'; //在桌面上创建 Reg.Free; PFile.Save(PWChar(WFileName), False); mb:=Application.MessageBox('桌面快捷方式创建成功，是否创建开始菜单快捷方式？','提示',65); if mb=ID_Ok then begin Reg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '\' + '在制品管理系统' + '.lnk'; //在开始菜单中创建 Reg.Free; PFile.Save(PWChar(WFileName), False); showmessage('开始菜单快捷方式创建成功！') end; end; end.