[Erledigt] Preview Handler in VCL erzeugt MemoryLeak

[idefix2]

Ich hätte gerne den Windows preview Handler, von dem in diesem Thread die Rede ist, in mein Programm eingebunden - unter Delphi 2009 ist aber das Interface IPreviewHandler anscheinend noch nicht definiert (oder muss man da noch etwas extra in die uses-clause aufnehmen?), deshalb kompiliert die Unit nicht.
Gibt es eine Möglichkeit, das auch unter Delphi 2009 zum Laufen zu bringen?

[Aviator]

Die Interfaces sind bei XE3 in der WinAPI.PropSys Unit deklariert. Folglich sollten diese unter Delphi 2009 in der Unit PropSys deklariert sein. Allerdings weiß ich nicht, ob diese dort schon existiert haben oder ob diese nicht in einer anderen Unit deklariert wurden. Habe leider kein Delphi 2009 sondern nur XE3 und XE4.

Edit: Sorry das Interface IPreviewHandler ist in der Unit ShlObj definiert. Ich meinte die anderen Interfaces IInitializeWithFile, ...

[idefix2]

Tja, unter Delphi 2009 gibt es diese Interfaces offenbar noch nicht, die Unit ist ja eingebunden.

[himitsu]

IPreviewHandler
Im MSDN/PSDK steht ja genau drin, wie das Interface aussieht und man kann es problemlos auch selber implementieren.

Und es ist nicht so, als wenn man nicht auch sowas in Fremdkomponenten finden könnte.
IPreviewHandler Delphi

[idefix2]

Nachdem ich mich bis jetzt recht wenig mit COM Klassen beschäftigt habe, bin ich auf der Suche nach einer zumindest halbfertigen Lösung (Delphi Wrapper). Natürlich kann man mit umfangreichen Studium der Dokuentation prinzipiell alles programmieren, aber hier wäre mir eine fertige Komponente oder Klasse entschieden lieber.

Dazu Google zu verlinken, ist nicht allzu hilfreich - dort habe ich schon gesucht. Man findet sehr viel, aber ich habe nichts brauchbares entdeckt, vor allem, wie es aussieht, nicht für Delphi 2009.

[himitsu]

Am Einfachsten ist es mal in JEDI und Co. zu schauen, denn das ist ja grade eine Sammlung vieler Headerübersetzungen.

[Aviator]

Also wenn es nur um die Deklaration des Interfaces geht, dann kann ich dir mit der aus meinem XE3 dienen.

Delphi-Quellcode:

  IPreviewHandler = interface(IUnknown) 
    [SID_IPreviewHandler]
    function SetWindow(hwnd: HWND; var prc: TRect): HRESULT; stdcall;
    function SetRect(var prc: TRect): HRESULT; stdcall;
    function DoPreview: HRESULT; stdcall;
    function Unload: HRESULT; stdcall;
    function SetFocus: HRESULT; stdcall;
    function QueryFocus(var phwnd: HWND): HRESULT; stdcall;
    function TranslateAccelerator(var pmsg: TMsg): HRESULT; stdcall;
  end;

Ob du noch mehr brauchst, weiß ich allerdings nicht.

[idefix2]

Danke, damit werde ich es einmal versuchen. Leider habe ich wieder eine andere dringende Baustelle, sodass ich nicht gleich dazukomme.
Die ganze Unit schaut mir nicht allzu kompliziert aus, mit den richtigen Interfacedeklarationen sollte nicht mehr allzuviel fehlen, dass es auch unter Delphi 2009 läuft. In dem Bereich sollte sich bei der Sprache seither nicht gar so viel verändert haben. :-D