怎样在桌面上创建Internet快捷方式？

Question

怎样在桌面上创建Internet快捷方式？

Answer 1

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 Files\Internet Explorer\IEXPLORE.EXE';
   rLnk.WorkDirectory := 'C:\Program Files\Internet 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;