Preview Handler für den Explorer

[bcvs]

Hallo zusammen,

ich brauche einen Preview für den Explorer für ein eigenes Datenformat. Dazu habe ich diesen Artikel von Uwe Raabe gefunden:
http://www.uweraabe.de/Blog/2011/06/...he-delphi-way/

Das funktioniert bei mir auch wunderbar mit den bpl-Dateien aus dem Beispiel. Die Vorschau zeigt zum Test einfach nur den Dateinamen an.

Sobald ich das aber auf meine eigene Endung .inz ändere und die dll registriere, erscheint im Explorer nur noch "Es ist keine Vorschau verfügbar".

Hier meine Unit:

Delphi-Quellcode:

unit MyINZPreviewHandler;

interface

uses
  PreviewHandler, Classes, VCL.Controls, VCL.StdCtrls;

const
  {$REGION 'Unique ClassID of your PreviewHandler'}
  ///   <summary>Unique ClassID of your PreviewHandler</summary>
  ///   <remarks>Don't forget to create a new one. Best use Ctrl-G.</remarks>
  {$ENDREGION}
  CLASS_MyPreviewHandlerBPL: TGUID = '{0A37D2E3-D22D-4BDF-AAFC-09BC60C3CFE1}';
  CLASS_MyPreviewHandlerINZ: TGUID = '{13DC9D89-1DBB-408F-AF6C-5B3E43276215}';

type
  {$REGION 'Sample PreviewHandler'}
  ///   <summary>Sample PreviewHandler</summary>
  ///   <remarks>A sample PreviewHandler. You only have to derive from
  ///   TFilePreviewHandler or TStreamPreviewHandler and override some methods.</remarks>
  {$ENDREGION}
  TMyPreviewHandler = class(TFilePreviewHandler)
  private
    FTextLabel: TLabel;
  protected
  public
    constructor Create(AParent: TWinControl); override;
    procedure Unload; override;
    procedure DoPreview(const FilePath: string); override;
    property TextLabel: TLabel read FTextLabel;
  end;

implementation

uses
  SysUtils;

constructor TMyPreviewHandler.Create(AParent: TWinControl);
begin
  inherited;
  FTextLabel := TLabel.Create(AParent);
  FTextLabel.Parent := AParent;
  FTextLabel.AutoSize := false;
  FTextLabel.Align := alClient;
  FTextLabel.Alignment := taCenter;
  FTextLabel.Layout := tlCenter;
  FTextLabel.WordWrap := true;
end;

procedure TMyPreviewHandler.DoPreview(const FilePath: string);
begin
  TextLabel.Caption := 'Datei: '+FilePath;
end;

procedure TMyPreviewHandler.Unload;
begin
  TextLabel.Caption := '';
  inherited;
end;

initialization
  { Register your PreviewHandler with the ClassID, name, descripton and file extension }
  TMyPreviewHandler.Register(CLASS_MyPreviewHandlerINZ, 'inzfile', 'Notiz Preview', '.inz');  // <-- Das funktioniert nicht
//  TMyPreviewHandler.Register(CLASS_MyPreviewHandlerBPL, 'bplfile', 'BPL Binary Preview Handler', '.bpl'); // <-- Das funktioniert 
end.

Kann es vielleicht daran liegen, dass bpl schon irgendwo registriert ist, weil Delphi installiert ist? ODer was fehlt da sont noch?