教你如何用Delphi注冊快捷方式

　　這裡我們用到了com對象，我要解釋一下。com(compent  object model)其實是microsoft提出的組件標准，它定義了組件和應用程序之間進行通信的標准，同時提供了組件程序運行時所需要的環境。這是書上講的，現在我用口頭語客串幾句。Com可以用不同的語言編可以實現通信的效果，可以把它們看成一些二進制的可執行程序。下面就是注冊快捷方式：

 　　type
　　 ShortcutType = (ST_DESKTOP, ST_SENDTO, ST_QUICKLAUNCH, ST_STARTMENU);//定義一個數據類型
　　procedure CreateShortcut(FileName :string; Description :string;
　　 arguements :string; Location :ShortcutType);
　　 var
　　 cObj :IUnknown;
　　 sLink :IShellLink;
　　 pFile :IPersistFile;
　　 sDir :string;
　　 lName :string;
　　 spath :string;
　　 wFileName :WideString;
　　 mReg :TRegistry;
　　 key :string;
　　 tmp :string;
　　 begin
　　 cObj :=CreateComObject(CLSID_ShellLink); //創建COM對象
　　 sLink :=cObj as IShellLink; //COM對象轉化為IShellLink型接口
　　 pFile :=cObj as IPersistFile; //COM對象轉化為IPersistFile型接口

　　//獲取路徑
　　 sPath :=ExtractFilePath(FileName);
　　 with sLink do begin
　　 SetPath(PChar(FileName)); //設置執行文件名
　　 SetArguments(PChar(arguements)); //設置執行參數
　　 SetDescription(Pchar(Description)); //設置描述信息
　　 SetWorkingDirectory(PChar(sPath)); //設置工作路徑，即執行程序所在目錄
　　 end;

　　//獲取各快捷方式的實際目錄
　　 mReg :=TRegistry.Create;
　　 with mReg do begin
　　 RootKey :=HKEY_CURRENT_USER;

　　key :=REGSTR_PATH_EXPLORER; //Delphi在單元RegStr中定義的常量
　　 tmp :=key + 'Shell Folders';
 

 　　OpenKey(tmp, false);
　　 case Location of
　　 ST_DESKTOP: sDir :=ReadString('Desktop');
　　 ST_SENDTO: sDir :=ReadString('SendTo');
　　 ST_STARTMENU: sDir :=ReadString('Start Menu');
　　 ST_QUICKLAUNCH:
　　 begin
　　 sDir :=ReadString('AppData');
　　 sDir :=sDir + 'MicrosoftInternet ExplorerQuick Launch';
　　 end;
　　 end;
　　//生成快捷方式文件名
　　 lName :=ChangeFileExt(FileName, '.Lnk');
　　 lName :=ExtractFileName(lName);
　　 if sDir<>'' then

　 begin
　　 //生成快捷方式全路徑名
　　 wFileName :=sDir + '' + lName;
　　 //保存生成的快捷方式文件
　　 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;