Jak ukryć przycisk aplikacji Firemonkey na pasku zadań (XE4)?

Według tegopytanie można ukryć ikonę paska zadań fmx, zmieniając styl okna naWS_EX_TOOLWINDOW. W XE2 i XE3 ten kod działa:

uses FMX.Platform.Win, Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
var h:THandle;
begin
  h := FmxHandleToHWND(Handle);
  ShowWindow(h, SW_HIDE);
  SetWindowLong(h, GWL_EXSTYLE, GetWindowLong(h, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ShowWindow(h, SW_SHOW);
end;

W XE4 to rozwiązanie nie działa (przycisk aplikacji powinien się ukryć, ale nic się nie dzieje). każde ciało ma jakiś pomysł?

Dzięki.

questionAnswers(4)

yourAnswerToTheQuestion