delphi - 从 Windows 任务栏中删除 firemonkey

Question

有没有办法从 Windows XP/vista/7 任务栏中删除我的 firemonkey 应用程序？我谷歌时没有任何信息。

问题:

如何从 Windows 任务栏隐藏位于 dll 中的窗体。

Answer 1

注意:Talibek在问题中回答了他自己的问题，为了清楚起见，我已将其移至此处。

你需要获取你的主表单句柄(Form1.Handle)，因为firemonkey中没有Application.handle，然后使用FmxHandleToHWND进行转换( FMX.Platform.Win) 到普通窗口句柄。从您的主机应用程序中，您需要检索该句柄(您可以使用它导出一个函数)并执行以下操作:

  h := GetHandle();

  ShowWindow(h, SW_HIDE);
  SetWindowLong(h, GWL_EXSTYLE, GetWindowLong(h, GWL_EXSTYLE) or 
      WS_EX_TOOLWINDOW);
  ShowWindow(h, SW_SHOW);

检索句柄:

class function TForm1.returnHandle(): integer;
begin
  result := FmxHandleToHWND(Form1.Handle);
end;

当然，Application.MainFormOnTaskBar 属性需要设置为 true 以便表单可以处理应用程序。

希望它对某人有帮助。