delphi建立快捷方式

unit uSC;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
AnObj: IUnknown;
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
begin
AnObj := CreateComObject(CLSID_ShellLink);
ShLink := AnObj as IShellLink;
//or 'ShLink := CreatComObject(CLSID_ShellLink) as IShellLink;'
PFile := AnObj as IPersistFile;

FileName := ParamStr(0);
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));

if CheckBox1.Checked then
begin
WFileName := ExtractFilePath(FileName) + Edit1.Text + '.lnk';
PFile.Save(PWChar(WFileName), false);
end;

if CheckBox2.Checked then
begin
Reg := TRegIniFile.Create('Software/Microsoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Desktop', 'not find')
+ '/' + Edit1.Text + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), false);
end;

if CheckBox3.Checked then
begin
Reg := TRegIniFile.Create('Software/Microsoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '')
+ '/' + Edit1.Text + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), false);
end;
end;

end.