unit1.pas

很方便明了的例子

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ComObj, ActiveX, Registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure CreateUlr;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateUlr;
var
  ShLink: IShellLink;
  PFile: IPersistFile;
  FileName: string;
  WFileName: WideString;
  Reg: TRegIniFile;
  AnObj: IUnknown;
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('软件作者：nciwp'+#13#10+'    公司：常州拨云通讯'+#13#10+'    版本：V1.0');
  Reg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
  WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '\' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
  Reg.Free;
  PFile.Save(PWChar(WFileName), False);
  Reg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
  WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '\' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
  Reg.Free;
  PFile.Save(PWChar(WFileName), False);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateUlr;
end;

end.