Shell-Erweiterung zur Icon-Darstellung erstellen

[xaromz]

Hallo,

ich bin zwar bisher mit meinem Problem nicht weitergekommen, möchte nun aber ein zusätzliches Interface implementieren: IThumbnailProvider.
Leider ist dieses unter Delphi noch nicht verfügbar, deshalb muss ich es selbst übersetzen. Kann mir jemand sagen, ob das so stimmt:

Code:

typedef DWORD WTS_ALPHATYPE;

    MIDL_INTERFACE("e357fccd-a995-4576-b01f-234630154e96")
    IThumbnailProvider : public IUnknown
    {
    public:
        virtual HRESULT STDMETHODCALLTYPE GetThumbnail( 
            /* [in] */ UINT cx,
            /* [out] */ __RPC__deref_out_opt HBITMAP *phbmp,
            /* [out] */ __RPC__out WTS_ALPHATYPE *pdwAlpha) = 0;
        
    };

Delphi-Quellcode:

type
  WTS_ALPHATYPE = DWORD;

  IThumbnailProvider = interface(IUnknown)
  ['{e357fccd-a995-4576-b01f-234630154e96}']
    function GetThumbnail(cx: UInt; out phbmp: HBitmap;
      out pdwAlpha: WTS_ALPHATYPE): HRESULT; stdcall;
  end;

Und falls jemand mein anderes Problem lösen kann, bin ich auch nicht böse .

//Edit: Das hier brauch ich auch noch:

Code:

    MIDL_INTERFACE("b824b49d-22ac-4161-ac8a-9916e8fa3f7f")
    IInitializeWithStream : public IUnknown
    {
    public:
        virtual /* [local] */ HRESULT STDMETHODCALLTYPE Initialize( 
            /* [in] */ IStream *pstream,
            /* [in] */ DWORD grfMode) = 0;
        
    };

Delphi-Quellcode:

  IInitializeWithStream = interface(IUnknown)
  ['{b824b49d-22ac-4161-ac8a-9916e8fa3f7f}']
    function Initialize(const pstream: IStream; grfMode: DWORD): HRESULT; stdcall;
  end;

Gruß
xaromz