CSDN博客

img CathyEagle

CreateLnk & ResolveLnk

发表于2004/9/16 10:26:00  1975人阅读

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日

0 0

相关博文

我的热门文章

img
取 消
img