DelphiでIDataObjectインスタンスを作成するにはどうすればよいですか？

Question

これはC++ code shows how OLE can be used to simulate a file drag and drop to simulate a 'Send to...' operationです。選択したファイルを添付した標準のメールクライアントが開きます。これはmailto：プロトコルハンドラの非常に興味深い代替手段です。

DelphiでIDataObjectの必要なインスタンスを作成するには、どの（短く安全な）方法が最適ですか？

私はいくつかのコードhereを見つけましたが、おそらくもっと良い解決策があります。

Answer 1

C++コードをDelphiに移植することはおそらくそれほど難しくありません。

type 
    TDataObject = class(TInterfacedObject, IDataObject) 

で始まり、C++の例に示すように必要なメソッドを実装します。