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 : 프로토콜 처리기의 매우 흥미로운 대안으로 열립니다.

델파이에서 IDataObject의 필수 인스턴스를 만드는 데 가장 (짧고 안전한) 방법은 무엇입니까?

일부 코드는 here이지만 더 나은 해결책이있을 수 있습니다.

Answer 1

C++ 코드를 Delphi에 이식하는 것은 아마도 그렇게 어렵지 않습니다.

type 
    TDataObject = class(TInterfacedObject, IDataObject) 

로 시작하고 C++ 예제와 같이 필요한 메소드를 구현 .