PRocedure CreateShortcut(FileName :string; Descr      //保存生成的快捷方式文件
      pFile.Save(PWChar(wFileName), false);
    end;

    Free;
  end;
end;
上面聲明了一個過程
下面應用它
var
  fName :string;
  fDesc :string;
  fArgu :string;
begin
  fName :=application.ExeName;
  fDesc :='Delphi 7.0 創建的快捷方式－－桌面';
  fArgu :='無參數';
  CreateShortcut(fName,fDesc,fArgu, ST_DESKTOP);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  fName :string;
  fDesc :string;
  fArgu :string;
begin
  fName :=Application.ExeName;
  fDesc :='Delphi 7.0 創建的快捷方式－－發送到。。。';
  fArgu :='無參數';
  CreateShortcut(fName,fDesc,fArgu, ST_SENDTO);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  fName :string;
  fDesc :string;
  fArgu :string;
begin
  fName :=Application.ExeName;
  fDesc :='Delphi 7.0 創建的快捷方式－－開始菜單';
  fArgu :='無參數';
  CreateShortcut(fName,fDesc,fArgu, ST_STARTMENU);

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
var
  fName :string;
  fDesc :string;
  fArgu :string;
begin
  fName :=Application.ExeName;
  fDesc :='Delphi 7.0 創建的快捷方式－－快速啟動';
  fArgu :='無參數';
  CreateShortcut(fName,fDesc,fArgu, ST_QUICKLAUNCH);
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
  sName :string;
  sAddress :string;
begin
  sName :='P哥網';
  sAddress :='http://www.pggpjj.com';
  CreateInternetShortcut(sName, sAddress);
end;