隐藏任务栏程序图标一例

最新推荐文章于 2025-06-22 09:24:48 发布

转载最新推荐文章于 2025-06-22 09:24:48 发布 · 768 阅读

收录于

函数&过程同时被 3 个专栏收录

39 篇文章

订阅专栏

Api

30 篇文章

订阅专栏

窗体

7 篇文章

订阅专栏

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.MainFormOnTaskbar := False;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_EXSTYLE);
  SetWindowLong(Handle, GWL_EXSTYLE, Style and (not WS_EX_APPWINDOW));
  ShowWindow(Application.Handle, SW_HIDE);
end;