CreateLnk & ResolveLnk

CreateLnk & ResolveLnk      CreateLnk & ResolveLnk　　本文介绍的两个函数，其原型声明如下，具体实现可以在源代码中找到，我只简要介绍一下用法。

　　function ResolveLnk( Wnd : HWnd;　　　　　　　　　　　　　lpszLinkFile : PChar; 　　　　　　　　　　　　　lpszPath, lpszArgs, lpszWorkDir, 　　　　　　　　　　　　　lpszIconPath, lpszDescription : PChar;　　　　　　　　　　　　　piIcon, piShowCmd, piSpecial : PInteger) : HResult;

　　function CreateLnk( Wnd : HWnd;　　　　　　　　　　　　 const SrcFile, DstPath, WorkDir, Description : String ) : HResult;

　　ResolveLnk接收lpszLinkFile作为快捷方式的源文件名，解析后的目标文件名保存在lpszPath中，其余参数只需形式上定义一个变量传入即可。

　　Var　　　lpszLinkFile, lpszPath, lpszArgs, 　　　lpszWorkDir, lpszIconPath, lpszDescription: array[0..MAX_PATH] of Char;　　　piIcon, piShowCmd, piSpecial: PInteger;　　…… 　　ResolveLnk(0, lpszLinkFile, lpszPath, lpszArgs, lpszWorkDir, lpszIconPath, lpszDescription, piIcon, piShowCmd, piSpecial);

--------------------------------------------------------------------------------------

　　CreateLnk比较简单，SrcFile, DstPath分别是源文件名和希望建立的快捷方式文件名，Description是对该快捷方式的描述，举例如下：

　　　　CreateLnk(Handle,'c:/app.exe','c:/LinkToApp.lnk','c:/','ShortCut to app.exe') ;

　　WorkDir在Windows帮助中是这样说的：指定包含原始项目或一些相关文件的文件夹。有时，程序需要使用其他位置的文件。这时需要您指定这些文件所在的文件夹，以便程序能够找到它们。　　建立快捷方式还可以使用下面的过程：

　　procedure CreateShortCut(sName: string; dPath: integer; dName: widestring);　　var　　　tmpObject : IUnknown;　　　tmpSLink : IShellLink;　　　tmpPFile : IPersistFile;　　　PIDL : PItemIDList;　　　StartupDirectory : array[0..MAX_PATH] of Char;　　　StartupFilename : String;　　　LinkFilename : WideString;　　begin　　　coInitialize(nil);　　　StartupFilename := sName;　　　tmpObject := CreateComObject(CLSID_ShellLink);　　//创建建立快捷方式的外壳扩展　　　tmpSLink := tmpObject as IShellLink;　　　　　　　　　 //取得接口　　　tmpPFile := tmpObject as IPersistFile;　　　　　　　　　//用来储存*.lnk文件的接口 　　　tmpSLink.SetPath(pChar(StartupFilename));　　　　　//设定.exe所在路径　　　tmpSLink.SetWorkingDirectory(　　　　　pChar(ExtractFilePath(StartupFilename)));　　　　//设定工作目录　　　SHGetSpecialFolderLocation(0,dPath,PIDL);　　　　　//获得dPath的Itemidlist　　　SHGetPathFromIDList(PIDL,StartupDirectory);　　　 //获得dPath路径　　　LinkFilename := StartupDirectory + dName; 　　　tmpPFile.Save(pWChar(LinkFilename),FALSE);　　　//保存*.lnk文件 　　　CoUninitialize end;

　　应用举例，把快捷方式建立到“SendTo”目录：

　　　　CreateShortCut('c:/app.exe', CSIDL_SENDTO, 'c:/LinkToApp.lnk');

发表于“阿甘的家”2000年8月15日