正在阅读:教你如何用Delphi注册快捷方式教你如何用Delphi注册快捷方式

2004-10-09 12:19 出处:CSDN 作者:pggpjj 责任编辑:huangpeidan


  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;


察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:
键盘也能翻页,试试“← →”键

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品