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

　　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;