Hallo,

ich möchte eine Shell-Erweiterung programmieren, die mir den Inhalt von SVG-Dateien als Icon anzeigt. Hat jemand damit Erfahrung und kann mir ein paar Hinweise geben (vielleich ein Link auf ein Tutorial )?

Gruß
xaromz

Da gibts noch nix (kostenloses) ausser für Kylix -> http://moddom.gmxhome.de/

Er will eine programmieren, turboPASCAL

Shell Extension sollte weiterhelfen.

Einen SVG-Viewer solltest du zum Beispiel auf torry.net finden.

Hallo,

Zitat von DGL-luke:

Er will eine programmieren, turboPASCAL

Genau.

Zitat von DGL-luke:

Shell Extension sollte weiterhelfen.

Danke, schau ich mir an.

Zitat von DGL-luke:

Einen SVG-Viewer solltest du zum Beispiel auf torry.net finden.

IMHO gibt es nur einen vernünftigen SVG-Viewer für Delphi, und zwar den: http://www.delphipraxis.net/internal...ct.php?t=63918 .

Gruß
xaromz

Hallo,

so, jetzt bin ich soweit fertig mit meinem Code, habe aber immer noch ein Problem: Wenn ich mein COM-Objekt registriere (regsvr32 SVGIcon.dll), dann funktioniert zwar die Icondarstellung im Explorer, aber der Prozess regsvr32 bleibt hängen und kann nur noch im Taskmanager gekillt werden. Beim Entfernen genauso.

Ich hänge mal das Projekt dran (die SVG-Geschichten habe ich rausgenommen, die sind für das Problem irrelevant und stören nur).

Kann mir das jemand erklären? Noch besser: Hat jemand eine Lösung?

Gruß
xaromz

//Edit: Anhang aktualisiert, hatte die SVG-Sachen doch nicht rausgenommen.

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:

markieren

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;
       
    };

markieren

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:

markieren

Code:

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

markieren

Delphi-Quellcode:

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

Gruß
xaromz