怎样得到一个快捷方式(.lnk)指向的目标文件名?(100分)

www · 2008-04-30

如题.

TrustMe · 2008-04-30

program shllnkapp; uses   Windows,   Activex,   ShlObj; const   cslnk: WideString = 'C:/Documents and Settings/yushf/桌面/SSEXP.EXE.lnk'; var lnk: IShellLink;   bu: array[0..MAX_PATH]of char; begin CoInitialize(nil);   if CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER or             CLSCTX_LOCAL_SERVER, IUnknown, lnk) = S_OK then   try     (lnk as IPersistFile).Load(@cslnk[1], STGM_READ);     lnk.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI);     ZeroMemory(@bu[0], sizeof(bu));   lnk.GetPath(@bu[0], sizeof(bu), PWin32FindData(nil)^, SLGP_UNCPRIORITY);     MessageBox(0, @bu[0], nil, 0);   finally     lnk := nil;   end;   CoUninitialize; end.

风铃夜思雨 · 2008-04-30

unit lnk; interface uses   Activex,   Comobj,   shlobj,   windows,   SysUtils; type   PShellLink = ^TshellLink;   TShellLink = record     PathName, Arguments, Description, WorkingDirectory, IconLocation: string;     IconIndex: Integer;     ShowCmd: Integer;     HotKey: Word;   end; function GetShellLink(const LinkFile: WideString): TShellLink; procedure CreateLnk(sFileName, sLink: string; pchDes: LPSTR); implementation function GetShellLink(const LinkFile: WideString): TShellLink; var   SL: IShellLink;   PF: IPersistFile;   FindData: TWin32FindData;   AStr: array[0..MAX_PATH] of char; begin   OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,     IShellLink, SL));   PF := SL as IPersistFile;   OleCheck(PF.Load(PWideChar(LinkFile), STGM_READ));   OleCheck(SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI));   with Result do   begin     OleCheck(SL.GetPath(AStr, MAX_PATH, FindData, SLGP_UNCPRIORITY));     PathName := AStr;     OleCheck(SL.GetArguments(AStr, MAX_PATH));     Arguments := AStr;     OleCheck(SL.GetDescription(AStr, MAX_PATH));     Description := AStr;     OleCheck(SL.GetWorkingDirectory(AStr, MAX_PATH));     WorkingDirectory := AStr;     OleCheck(SL.GetIconLocation(AStr, MAX_PATH, IconIndex));     IconLocation := AStr;     OleCheck(SL.GetShowCmd(ShowCmd));     OleCheck(SL.GetHotKey(HotKey));   end; end;   {  建立Lnk档  } procedure CreateLnk(sFileName, sLink: string; pchDes: LPSTR); var   psl: IShellLink;   ppf: IPersistFile;   pchBuf: array[0..1024] of Char;   wch: array[0..1024] of WideChar; begin   try     psl := CreateComObject(CLSID_ShellLink) as IShellLink;     try       ppf := psl as IPersistFile;       OleCheck(psl.SetDescription(pchDes));       StrPCopy(pchBuf, sFileName);       OleCheck(psl.SetPath(pchBuf)); StrPCopy(pchBuf, sLink);       MultiByteToWideChar(CP_ACP, 0, pchBuf, -1, wch, 1024);       OleCheck(ppf.Save(wch, True));     finally       ppf := nil;     end;   finally     psl := nil;   end; end; end.

地质灾害 · 2008-04-30

来晚一步 uses      Windows,ComObj,ShlObj,ActiveX; {       函数功能：创建指定文件的快捷方式       TargetFile: 快捷方式指向的文件或目录       CreateAt:      创建的快捷方式保存路径       函数返回True表示操作成功，False表示失败 } function CreateShortCut(TargetFile,CreateAt:string):Boolean; const      IID_IPersistFile:TGUID = '{0000010B-0000-0000-C000-000000000046}'; var      intfLink:IShellLink;      IntfPersist:IPersistFile; begin      IntfLink:=CreateComObject(CLSID_ShellLink) as IShellLink;      Result:=(IntfLink<>nil) and SUCCEEDED(IntfLink.QueryInterface(IID_IPersistFile,IntfPersist))      and SUCCEEDED(intfLink.SetPath(PAnsiChar(TargetFile))) and      SUCCEEDED(IntfPersist.Save(PWideChar(WideString(CreateAt)),True)); end; {       函数功能：返回指定快捷方式的目标文件       LinkFile: 快捷方式文件完整路径       函数返回空字符串时表示失败，否则成功 } function GetTargetOfShorCut(LinkFile:string):string; const      IID_IPersistFile:TGUID = '{0000010B-0000-0000-C000-000000000046}'; var      intfLink:IShellLink;      IntfPersist:IPersistFile;      pfd:_WIN32_FIND_DATA;      bSuccess:Boolean; begin      Result:='';      IntfLink:=CreateComObject(CLSID_ShellLink) as IShellLink;      SetString(Result,nil,MAX_PATH);      {        Load方法的第二个参数还可以传递STGM_WRITE或STGM_READWRITE，表示对快捷方式信息的访问权限          STGM_READ：只读          STGM_WRITE：只写          STGM_READWRITE：读写        GetPath方法的第三个参数还可以传递SLGP_UNCPRIORITY或SLGP_SHORTPATH，表示返回的目标路径格式          SLGP_UNCPRIORIT：UNC网络路径          SLGP_SHORTPATH ：DOS 8.3格式路径          SLGP_RAWPATH      : 长路径      }      bSuccess:=(IntfLink<>nil) and SUCCEEDED(IntfLink.QueryInterface(IID_IPersistFile,IntfPersist))       and SUCCEEDED(IntfPersist.Load(PWideChar(WideString(LinkFile)),STGM_READ)) and       SUCCEEDED(intfLink.GetPath(PAnsiChar(Result),MAX_PATH,pfd,SLGP_RAWPATH));      if not bSuccess then Result:=''; end; 除SetPath和GetPath方法外，IShellLink接口的其它方法可以设置或读取快捷方式的其它信息： GetArguments：获得参数信息 GetDescription：获得描述信息 GetHotkey：获得快捷键 GetIconLocation：获得图标   GetIDList：获得快捷方式的目标对象的item identifier list (Windows外壳中的每个对象如文件，目录和打印机等都有唯一的item identifiler list) GetPath: 获得快捷方式的目标文件或目录的全路径 GetShowCmd：获得快捷方式的运行方式，比如常规窗口，最大化 GetWorkingDirectory：获得工作目录 Resolve：按照一定的搜索规则试图获得目标对象，即使目标对象已经被删除或移动，重命名 下面是对应信息的设置方法 SetArguments SetDescription SetHotkey SetIconLocation SetIDList SetPath SetRelativePat SetShowCmd SetWorkingDirectory

www · 2008-04-30

多人接受答案了。

怎样得到一个快捷方式(.lnk)指向的目标文件名?(100分)

www

Unregistered / Unconfirmed

TrustMe

Unregistered / Unconfirmed

风铃夜思雨

Unregistered / Unconfirmed

地质灾害

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

Similar threads