ショートカットの情報取得するには？ (ID:18466)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

黒鬚です。
ショートカットの情報を取得したいのですが
思うように動きません。

ここの過去ログをみて
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=6#0099.txt
を参考にしてがんばって作ってみましたが
モジュールエラーが発生します。
モジュールエラーの発生は CoUninitialize で起こっています。

function	TForm1.GetLinkFileName(FName: String): String;
var
  HR:         HRESULT;
  psl:        IShellLink;
  ppf:        IPersistFile;
  wsz:        array [0..MAX_PATH] of WideChar;
  szGotPath:  array [0..MAX_PATH] of Char;
  wfd:        WIN32_FIND_DATA;
begin
  CoInitialize(Nil);

HR := CoCreateInstance(CLSID_ShellLink, Nil, CLSCTX_INPROC_SERVER, IShellLink, psl);
  if SUCCEEDED(HR) then begin
    HR := psl.QueryInterface(IPersistFile, ppf);
    if SUCCEEDED(HR) then begin
      MultiByteToWideChar(CP_ACP, 0, PChar(FName), -1, wsz, MAX_PATH);
      HR := ppf.Load( wsz, STGM_READ );
      if SUCCEEDED(HR) then begin
        HR := psl.Resolve(Application.Handle, SLR_ANY_MATCH);
        if SUCCEEDED(HR) then begin
          HR := psl.GetPath(szGotPath, MAX_PATH, wfd, SLGP_SHORTPATH );
          if SUCCEEDED(HR) then Result := szGotPath;
        end;
      end;
      ppf._Release;
    end;
    psl._Release;
  end;
  CoUninitialize;
end;

←解決時は質問者本人がここをチェックしてください。

戻る