Delphi 10.1 ShellExecute Fehler inkompatible Typen 'HWND' und 'TWindowsHandle'

Question

ich ein Problem mit dem folgenden Code in Delphi haben 10.1:

ShellExecute(handle,'open',PChar(filename), '','',SW_SHOWNORMAL); 

Wenn ich versuche, den Code gibt es mir, diesen Fehler zu laufen:

Incompatible Types: 'HWND' and 'TWindowHandle'

Answer 1

Eine TWindowHandle ist eine FireMonkey-Klasse. A HWND ist ein Windows-Handle. Dies sind völlig verschiedene Arten.

Für die VCL ist es in Ordnung, etwas wie TForm.Handle, das ist eine HWND, zu ShellExecute() zu übergeben. Für FireMonkey (FMX) ist dies nicht der Fall, da dies eine TWindowHandle ist.

GetDesktopWindow() Verwenden von Einheit Winapi.Windows statt:

ShellExecute(GetDesktopWindow, 'open', PChar(filename), '', '', SW_SHOWNORMAL); 

Answer 2

In Firemonkey, eine Handle Eigenschaft ist die Form des Typs TWindowHandle (eine Klasse in der FMX.Types Einheit definiert). Unter Windows wird es als TWinWindowHandle implementiert (eine Unterklasse von TWindowHandle, definiert in der Einheit FMX.Platform.Win).

TWinWindowHandle speichert den HWND Griff in seiner Wnd Eigenschaft.

ShellExecute(FmxHandleToHWND(Handle), 'open', PChar(filename), '', '', SW_SHOWNORMAL); 

Dies wirft die TWindowHandle-TWinWindowHandle (mit WindowHandleToPlatform) und kehrt dann seinen Wnd Eigenschaftswert:

Um den tatsächlichen HWND Griff zu bekommen, würden Sie FmxHandleToHWND() verwenden müssen.

Aktualisiert (basierend auf Remy Kommentare):

Remy weist darauf hin, dass die FmxHandleToHWND dokumentiert ist veraltet werden (von XE4 an). Dies scheint nicht durch den neuesten Quellcode gesichert zu sein, der im Falle der Delphi 10.1 Berlin RTM Version den üblichen Modifikator deprecated fallen gelassen zu haben scheint, aber nehmen wir das Dokumentationswort dafür, nur um sicher zu sein.

Statt FmxHandleToHWND ist es ratsam, genau das zu tun, was FmxHandleToHWND tut, die WindowHandleToPlatform und Zugriff auf die Wnd Eigenschaft zu nennen ist, so:

ShellExecute(WindowHandleToPlatform(Handle).Wnd, 'open', PChar(filename), '', '', SW_SHOWNORMAL); 

Eine bessere Option wäre aber sein FormToHWND zu verwenden, die ist ein direkter Ersatz für FmxHandleToHWND als WindowHandleToPlatform (und wir können fragen, warum die Dokumentation an dieser Routine zeigt uns nicht, auch wenn die wahrscheinliche Antwort es der docs Schreiber jetzt noch falsch ist):

ShellExecute(FormToHWND(Handle), 'open', PChar(filename), '', '', SW_SHOWNORMAL);