「Shell IDList Array」とはクリップボードフォーマットのCFSTR_SHELLIDLIST
のことで、ネイティブ形式のCIDA構造体を作る必要があり、CIDA構造体の中にはLPCITEMIDLIST
をいろいろ納めなければならなかったりとで、かなり大変です。
とはいえ、SHCreateDataObject
という「Shell IDList Array」を含んだIDataObjectを作るAPIが用意されているので、頑張ればなんとかなります。また、LPCITEMIDLIST
の方もいくつかAPIが用意されているので適切に組み合わせればなんとかなります。
また.NET FrameworkではネイティブのIDataObject
をラップしたIDataObject
が使用されていますが、継承関係にあると共に、DataObject
コンストラクタやClipboard.SetDataObject
などはネイティブのIDataObject
も受け付けてくれるのでそのまま渡すことができます。
using IComDataObject = System.Runtime.InteropServices.ComTypes.IDataObject;
[DllImport("Shell32.dll")]
static extern IntPtr ILClone(IntPtr pidl);
[DllImport("Shell32.dll", CharSet = CharSet.Unicode)]
static extern IntPtr ILCreateFromPathW(string pszPath);
[DllImport("Shell32.dll")]
static extern IntPtr ILFindLastID(IntPtr pidl);
[DllImport("Shell32.dll")]
static extern bool ILRemoveLastID(IntPtr pidl);
[DllImport("Shell32.dll", PreserveSig = false)]
static extern void SHCreateDataObject(IntPtr pidlFolder, int cidl, IntPtr[] apidl, IComDataObject pdtInner, in Guid riid, out IComDataObject ppv);
static (IntPtr, IntPtr) Divide(IntPtr pidl) {
var dir = ILClone(pidl);
ILRemoveLastID(dir);
var item = ILClone(ILFindLastID(pidl));
return (dir, item);
}
static void SetFile(string fullpath) {
var pidl = ILCreateFromPathW(fullpath);
var (dir, item) = Divide(pidl);
SHCreateDataObject(dir, 1, new[] { item }, null, typeof(IComDataObject).GUID, out var comDataObject);
Clipboard.SetDataObject(comDataObject, true);
Marshal.FreeCoTaskMem(item);
Marshal.FreeCoTaskMem(dir);
Marshal.FreeCoTaskMem(pidl);
}
CFSTR_SHELLIDLIST
は絶対パスとそこからの相対パスで表現されます。それを受けて先に使用したSHCreateDataObject
は絶対パスとその直下に含まれる子アイテムが要求されます。そのため、異なるディレクトリに存在するファイルは表現することができません。
SHCreateDataObject
の前身で現在は動作保証のないCIDLData_CreateFromIDArray
であれば絶対パスとそこからの相対パスを要求するため、複数ファイルを楽に表現できます。
using IComDataObject = System.Runtime.InteropServices.ComTypes.IDataObject;
[DllImport("Shell32.dll", PreserveSig = false)]
static extern void CIDLData_CreateFromIDArray(IntPtr pidlFolder, int cidl, IntPtr[] apidl, out IComDataObject ppdtobj);
[DllImport("Shell32.dll", CharSet = CharSet.Unicode)]
static extern IntPtr ILCreateFromPathW(string pszPath);
[DllImport("Shell32.dll")]
static extern IntPtr ILFindChild(IntPtr pidlParent, IntPtr pidlChild);
[DllImport("Shell32.dll", PreserveSig = false)]
static extern void SHGetFolderLocation(IntPtr hwnd, int csidl, IntPtr hToken, int dwFlags, out IntPtr ppidl);
const int CSIDL_DESKTOP = 0;
static void SetFiles(params string[] files) {
SHGetFolderLocation(IntPtr.Zero, CSIDL_DESKTOP, IntPtr.Zero, 0, out var desktop);
var absolutes = Array.ConvertAll(files, file => ILCreateFromPathW(file));
var relatives = Array.ConvertAll(absolutes, absolute => ILFindChild(desktop, absolute));
CIDLData_CreateFromIDArray(desktop, relatives.Length, relatives, out var comDataObject);
Clipboard.SetDataObject(comDataObject, true);
Array.ForEach(absolutes, absolute => Marshal.FreeCoTaskMem(absolute));
Marshal.FreeCoTaskMem(desktop);
}