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;
隐藏任务栏程序图标一例
最新推荐文章于 2022-11-19 14:21:18 发布