zoukankan      html  css  js  c++  java
  • 【转】Delphi 在任务栏隐藏程序图标

    Delphi 在任务栏隐藏程序图标

    原文:https://www.cnblogs.com/findumars/p/4740482.html

    方法一:
    1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”
    2、在主窗体的 OnShow 事件中写下:ShowWindow(Application.Handle, SW_HIDE);

    方法二:
    改变窗体样式 SetWindowLong(Self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

    ----------------------------------------------------------------------------------------

    //本程序在任务栏中不显示MSTaskListWClass
    procedure TForm1.FormShow(Sender: TObject);
    begin
      ShowWindow(Application.handle,SW_HIDE);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标
      SetWindowLong(Application.Handle, GWL_EXSTYLE,
                GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
    end;
     
    ShowWindow(FindWindow('Form2'),SW_HIDE);//隐藏窗体
    ShowWindow(Form2.Handle,SW_HIDE);//隐藏窗体
    ShowWindow(Self.Handle,SW_HIDE);//隐藏窗体
    
    ShowWindow(FindWindow('Form2'),SW_NORMAL);//显示窗体
    ShowWindow(Form2.Handle,SW_NORMAL);//显示窗体
    ShowWindow(Self.Handle,SW_NORMAL);//显示窗体
    
    ShowWindow(Application.Handle,SW_HIDE);//隐藏任务栏中的图标 {这一句在FormCreate 不能显示出效果的}
    ShowWindow(Application.Handle,SW_NORMAL);//显示任务栏中的图标
    setwindowpos(application.handle,hwnd_top,0,0,0,0,swp_hidewindow);//不显示在系统栏

    参考:http://www.cnblogs.com/xe2011/archive/2012/06/02/2531604.html

     
     
     
  • 相关阅读:
    柔性数组
    2015阿里秋招当中一个算法题(经典)
    LAMP环境搭建
    JS和JQuery中的事件托付 学习笔记
    #17 Letter Combinations of a Phone Number
    码农生涯杂记_5
    【C++ Primer每日刷】之三 标准库 string 类型
    扎根本地连接未来 千米网的电商“红海”生存术
    poj 3356
    经验之谈—OAuth授权流程图
  • 原文地址:https://www.cnblogs.com/tc310/p/14870099.html
Copyright © 2011-2022 走看看