送るのフォルダの場所をDelphiで取得する方法

Windowsの特殊フォルダの情報を取得する方法。
これを取得するためには、

下記のような感じで書けば言いようです。

  if SHGetSpecialFolderLocation(0, CSIDL_SENDTO, pidl) = NOERROR then
  begin
    try
      if SHGetPathFromIDList(pidl, PPath) then
        Result := PPath;
    finally
      CoTaskMemFree(pidl);
    end;
  end;

参考にしたサイトはこちら。
http://www.delphidabbler.com/articles?article=12

SHGetSpecialFolderLocationを利用すれば、Windowsのほかのいろいろな
特殊フォルダの場所を取得できるようです。

こちらを利用して、私も簡単なプログラムを作ってみました。
それが、こちらです。
http://mitools.blogspot.com/2009/08/blog-post.html