在桌面上自动创建快捷方式

uses   ShellAPI,   ShlObj,   ActiveX,   ComObj;   
    
  const   
          CCH_MAXNAME=255;   
          LNK_RUN_MIN=7;   
          LNK_RUN_MAX=3;   
          LNK_RUN_NORMAL=1;   
  type   
          LINK_FILE_INFO=record   
                  FileName:array[0..MAX_PATH]   of   char;   
                  WorkDirectory:array[0..MAX_PATH]   of   char;   
                  IconLocation:array[0..MAX_PATH]   of   char;   
                  IconIndex:integer;   
                  Arguments:array[0..MAX_PATH]   of   char;   
                  Description:array[0..CCH_MAXNAME]   of   char;   
                  ItemIDList:PItemIDList;   
                  RelativePath:array[0..255]   of   char;   
                  ShowState:integer;   
                  HotKey:word;   
          end;   
    
  function   CreateLinkFile(const   info:LINK_FILE_INFO;const   DestFileName:string=''):boolean;   
  var   
          anobj:IUnknown;   
          shlink:IShellLink;   
          pFile:IPersistFile;   
          wFileName:widestring;   
  begin   
          wFileName:=destfilename;   
          anobj:=CreateComObject(CLSID_SHELLLINK);   
          shlink:=anobj   as   IShellLink;   
          pFile:=anobj   as   IPersistFile;   
          shlink.SetPath(info.FileName);   
          shlink.SetWorkingDirectory(info.WorkDirectory);   
          shlink.SetDescription(info.Description);   
          shlink.SetArguments(info.Arguments);   
          shlink.SetIconLocation(info.IconLocation,info.IconIndex);   
          shlink.SetHotkey(info.HotKey);   
          shlink.SetShowCmd(info.ShowState);   
          shlink.SetRelativePath(info.RelativePath,0);   
          if   DestFileName=''   then   
                  wFileName:=ChangeFileExt(info.FileName,'lnk');   
          result:=succeeded(pFile.Save(pwchar(wFileName),false));   
  end;   

procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
        rLnk   :   LINK_FILE_INFO;   
        pidl:pItemIDList;   
        pDesktop   :   string;   
  begin   
        rLnk.FileName   :=   'C:Program   FilesInternet   ExplorerIEXPLORE.EXE';   
        rLnk.WorkDirectory   :=   'C:Program   FilesInternet   Explorer';   
        rLnk.IconIndex   :=   0;   
    
        //取桌面路径   
        SetLength(pDesktop,   255);   
        SHGetSpecialFolderLocation(Self.Handle,   CSIDL_DESKTOP,   pidl);   
        SHGetPathFromIDList(pidl,   PChar(pDesktop));   
        SetLength(pDesktop,   StrLen(PChar(pDesktop)));   
    
        CreateLinkFile(rLnk,   pDesktop   +   ''   +   'I.lnk');   
  end;