在桌面上自动创建快捷方式
<div style="padding-right: 5.4pt; padding-left: 5.4pt; background: #e6e6e6; padding-bottom: 4px; width: 95%; padding-top: 4px;">http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifuses ShellAPI, ShlObj, ActiveX, ComObj;http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif const
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif CCH_MAXNAME=255;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif LNK_RUN_MIN=7;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif LNK_RUN_MAX=3;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif LNK_RUN_NORMAL=1;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif type
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif LINK_FILE_INFO=record
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif FileName:array[0..MAX_PATH] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif WorkDirectory:array[0..MAX_PATH] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif IconLocation:array[0..MAX_PATH] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif IconIndex:integer;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif Arguments:array[0..MAX_PATH] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif Description:array[0..CCH_MAXNAME] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif ItemIDList:PItemIDList;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif RelativePath:array[0..255] of char;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif ShowState:integer;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif HotKey:word;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif end;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''):boolean;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif var
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif anobj:IUnknown;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink:IShellLink;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif pFile:IPersistFile;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif wFileName:widestring;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif begin
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif wFileName:=destfilename;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif anobj:=CreateComObject(CLSID_SHELLLINK);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink:=anobj as IShellLink;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif pFile:=anobj as IPersistFile;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetPath(info.FileName);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetWorkingDirectory(info.WorkDirectory);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetDescription(info.Description);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetArguments(info.Arguments);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetIconLocation(info.IconLocation,info.IconIndex);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetHotkey(info.HotKey);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetShowCmd(info.ShowState);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif shlink.SetRelativePath(info.RelativePath,0);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif if DestFileName='' then
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif wFileName:=ChangeFileExt(info.FileName,'lnk');
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif result:=succeeded(pFile.Save(pwchar(wFileName),false));
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif end;
页:
[1]