-
等级
本版专家分：26结帖率 100% -
同上。展开阅读全文
-
等级
本版专家分：13630 -
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.WindowState:= wsMinimized;
end;
-
等级
本版专家分：209 -
下面以一个具体的例子，详细介绍一下利用Delphi实现系统状态栏图标的步骤和方法。
1.创建一个应用程序，在主窗体上增加一个TpopupMenu组件。并为该弹出选单组件增加选单项Exit，标题为“退出”。
2.在Uses中添加ShellAPI，因为在系统状态栏中增加图标时需调用ShellAPI中的函数Shell_NotifyIconA。该函数需要两个参数，其中一个是TnotifyIconDataA结构，需在主窗体中增加TnotifyIconDataA类型的全局变量ntida。
3.定义消息mousemsg，并编写主窗体的mousemessage消息处理函数，此函数说明在图标上用鼠标左键单击时，会打开应用程序窗口；用鼠标右键单击时，会弹出一个选单。
下面给出步骤2和3的实现代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus, shellapi;
const
mousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点击鼠标的事件
iid = 100; //用户自定义数值，在TnotifyIconDataA类型全局变量ntida中使用
type
TForm1 = class(TForm)
......
private
//自定义消息处理函数，处理鼠标点击图标事件
procedure mousemessage(var message: tmessage); message mousemsg;
public
{ Public declarations }
end;
var
Form1: TForm1;
ntida: TNotifyIcondataA;
//用于增加和删除系统状态图标
implementation
{$R .DFM}
procedure TForm1.mousemessage(var message: tmessage);
var
mousept: TPoint; //鼠标点击位置
begin
inherited;
if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标
getcursorpos(mousept); //获取光标位置
popupmenu1.popup(mousept.x, mousept.y);
//在光标位置弹出选单
end;
if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标
//显示应用程序窗口
ShowWindow(Handle, SW_SHOW);
//在任务栏上显示应用程序窗口
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW));
end;
message.Result := 0;
end
4.编写FormCreate的代码如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
ntida.Wnd := handle; //取应用程序主窗体的句柄
ntida.uID := iid; //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使
ntida.uFlags := nif_icon + nif_tip + nif_message;//指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
ntida.uCallbackMessage := mousemsg;
//指定的窗口消息
ntida.hIcon := Application.Icon.handle;
//指定系统状态栏显示应用程序的图标句柄
ntida.szTip := 'Icon';
//当鼠标停留在系统状态栏该图标上时，出现该提示信息
shell_notifyicona(NIM_ADD, @ntida);
//在系统状态栏增加一个新图标
end;
5.编写Tform1.OnClose的代码如下：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone; //不对窗体进行任何操作
ShowWindow(Handle, SW_HIDE); //隐藏主窗体
//隐藏应用程序窗口在任务栏上的显示
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;
6.编写Exit代码如下：
当用户点击Exit时实现完全退出应用程序。具体代码如下：
procedure TForm1.ExitClick(Sender: TObject);
begin
//为ntida赋值，指定各项参数
ntida.cbSize := sizeof(tnotifyicondataa);
ntida.wnd := handle;
ntida.uID := iid;
ntida.uFlags := nif_icon + nif_tip + nif_message;
ntida.uCallbackMessage := mousemsg;
ntida.hIcon := Application.Icon.handle;
ntida.szTip := 'Icon';
shell_notifyicona(NIM_DELETE, @ntida);
//删除已有的应用程序图标
Application.Terminate;
//中断应用程序运行，退出应用程序
end
通过以上步骤，我们即可用Delphi轻松实现系统状态栏图标。
- MFC对话框程序启动的时候直接隐藏、在任务栏不显示图标
2011-06-19以前做一个项目，要求程序启动的时候主对话框是隐藏的。当时不知道怎么做，修改窗口风格、窗口类、OnInitDialog里ShowWindow、Create函数、WM_CREATE消息、PreCreateWindow等等都尝试了，没什么用，相当...
- 让程序运行时不在任务栏显示图标
=========================================== ...以SDI和MDI应用为例，你可以在CMainFrame中重载PreCreateWindow()，在其中加一句： cs.dwExStyle |= WS_EX_TOOLWINDOW; 对基于对话框
- 如何在任务栏显示java程序图标
该代码实现了在系统右下角的任务栏中显示程序的图标，并且最小化程序后单击图标可以显示出来这个程序窗口 import java.awt.Color; import java.awt.Image; import java.awt.MenuItem; import java.awt.PopupMenu; ...
- 正在运行的程序无法在任务栏上显示出来了
运行的IE和一些程序，在任务栏上都看不见了，他之前所说的是最小化就看不见了，事实上是最大化在任务栏上也看不见了，二话不说，Google，在网上看到了解决方案，问题的根由是exploer被损害了，进行下面的修复工作...
- WPF编程，指定窗口图标、窗口标题，使得在运行状态下任务栏显示窗口图标的一种方法。
WPF默认的窗口，如果采用默认的标题与图标，运行状态下在任务栏中显示的图标就比较难看~ 如果要更改在任务栏的显示图标，需要设定窗口的Icon属性。这里给出一种方法。 1）添加图片到项目中 方法一、前台...
- 软件运行时，任务栏图标显示不正常的问题
使用过windows7系统的用户应该都知道任务栏的强大了吧，我们可以将图标锁定在任务栏然后就可以方便打开了，但是最近我一朋友跟我说他发现任务栏上的chrome谷歌浏览器图标显示异常，遇到这种问题的话我们可以先关闭...
- 使运行的窗口不在任务栏显示
转自：http://www.plm.hk/phpgm/archiver/tid-2457.html<br /> ...使运行的窗口不在任务栏显示 <br />SetWindowLong(Application->Handle, GWL_EXSTYLE, (GetWindowLong(Application->Han
- 电脑任务栏不显示正在运行的程序
将以下代码在记事本中保存成1.vbs文件即可，然后双击运行该文件，即可显示任务栏中的任务图标 'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. ...
- 如何删除其它应用程序在任务栏上的图标
主页：http://www.maxss.net邮件：maxchou@163.com 如果你对于任务栏的图标的编程知识及内容还不太了解的话，请先看看我的另一篇文章“用C++Builder实现任务栏图标动画效果”又或者阅读在MSDN中有关的内容。...
- 隐藏程序在任务栏的图标
今天想最小化的时候在任务栏上隐藏窗体图标，想了很多方法不行，结果这行代码解决了问题，备忘下。 对话框程序放OnInitDialog()函数： SetWindowLong(this->m_hWnd,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//隐藏任务拦...
- C#关于如何在任务栏中隐藏和显示其它应用程序的图标
这几天无聊玩游戏，又怕老婆不能让她看到玩游戏，给自己设置了一个隐藏游戏程序名称的小程序。在网上看到不少人都有这想法又没看到几个可用的，有位大神隐藏了QQ程序这里也给个链接：...
- 解决Windows XP中任务栏不显示运行程序按钮的故障
故障现象：程序在运行，但是任务栏却不显示相应的按钮，导致多个程序同时运行时，无法从任务栏迅速切换，只能用 Alt+TAB 键切换，既慢又不直观，还经常错误切换到其他程序。 解决过程：一直不太敢用网上所谓修改、...
- MFC窗口程序启动时最小化到托盘、不在任务栏中显示、显示时在右小角
转自：http://www.cnblogs.com/watchdatalearn2012620/archive/2013/04/17/3025482.html 原文地址: ... ...第一步：窗口最小化到托盘，显示图标。 这一步在网上一搜，真的很多
- 任务栏图标空白，图标是一块白板
有时候我们打开软件或应用发现任务栏上的图标是空白的，是一块白板； 2. 解决办法 如果图标异常，可以清理一下图标的缓存，将以下代码复制到记事本另存为：清理图标缓存.bat 文件，然后双击运行此批处理文件即可。 @...
- 打开的窗口在任务栏上不显示,任务栏不显示正在运行的任务?
打开的窗口在任务栏上不显示,任务栏不显示正在运行的任务?阅读(9) 评论(0) 发表时间：2008年01月02日 11:07本文地址：;" onclick="function onclick(){copyBlogURL();return false;}" href="javascript:;">...
- MFC程序隐藏任务栏图标的三种方法
MFC程序隐藏任务栏图标的三种方法 原文地址《MFC程序隐藏任务栏图标的三种方法 》 在VC编程中，有时候我们需要将我们的程序在任务栏上的显示隐藏起来，我试过几种方法，下面我介绍一下我知道的三种方法。...
- 【C#】关闭程序显示在任务栏右下角
一般From最小化会使Form都会缩小到任务栏上，但是是以Form的标题栏的形式显示。 实现将程序缩小到右下角的任务栏，还需要给Form添加一个NotifyIcon控件，代码如下 if (this.WindowState == FormWindowState....
- C# 实现任务栏图标程序
这是一个.Net平台上用C# 写的可以停放在任务栏上的图标程序，类似于SQL管理器、防病毒软件图标及OICQ图标等。 一、图标程序基本概念 我们这里所指的图标程序是类似于在Windows中经常接触的停放在任务栏上，...
- 2020年前端面试题及答案
前端面试汇总（2020年） 一 大纲 1、前言 2、前端工程化 3、前端设计模式 4、前端安全性问题 ...由于新冠肺炎疫情，现在成天呆在家里，加上也要准备面试，就在家里看面试题...
- 如何让windows控制台程序运行时不显示黑色框，直接运行
在程序最开始处加一句： #pragma comment( linker, "/subsystem:windows /entry:mainCRTStartup" )
- Qt应用程序图标设置&任务栏图标设置
一、Qt应用程序图标设置 1、添加资源文件： 在vs资源视图中选中项目右键->添加->资源，选择icon或者version，vs会创建一个名叫“项目名称.rc”的资源文件。 2、将准备好的图标资源（.ico文件）放到工程目录...
- android让后将程序图标显示在状态栏
根据activity的生命周期，在activity不显示时，会执行onStop函数，所以你在onStop函数（按...或者，只要程序在运行就一直显示通知栏图标，这样简单点。 Java代码 privatevoid showNotification() {
- 用 C# 编写一个停放在任务栏上的图标程序
用 C# 编写一个停放在任务栏上的图标 作者: 蔡世友 2001-12-10 23:02:26 C#语言是微软公司针对.Net平台才推出来的一门新语言，作为.Net平台的第一语言，它几乎集中了所有关于软件开发和软件工程研究的最新成果。...
- C#基础教程-c#实例教程，适合初学者
本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...
- VS2015中创建多文档默认程序,任务栏默认显示多个子窗口的预览问题
运行程序后,当打开多个文档视图时,在任务栏中就会显示相应个数的子窗口预览窗口.如下图所示 个人感觉这种窗口使用起来很麻烦.想修改只显示一个主窗口的预览窗口即可. 经过几个小时的源码追踪,终于发现了关键函数...
- 在状态栏上显示会闪烁的图标(类似qq消息提示)
前两周公司接了个运行在车机上的行车记录仪小项目，在做完提交给对方公司测试后，他们提出了当程序在后台录像时，需要在状态栏上显示个闪烁的图标给用户进行提示。 好吧，虽然对方给的需求文档上没这个功能，但...
- C#图标入任务栏，右键程序
先添加notifyicon控件notifyIcon1ico图标制作：http://www.bitbug.net/using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;...
- 小甲鱼零基础入门学习python笔记
小甲鱼老师零基础入门学习Python全套资料百度云(包括小甲鱼零基础入门学习Python全套视频+全套源码+全套PPT课件+全套课后题及Python...000 愉快的开始 python跨平台。 应用范围：操作系统、WEB、3D动画、企业应用...
- C#之使用NotifyIcon实现任务栏托盘菜单，图标闪烁效果及气泡提示 很多程序是只需要后台运行的，甚至不需要...
C#之使用NotifyIcon实现任务...NotifyIcon提供了程序在任务栏的显示功能 程序下载链接如下： http://download.csdn.net/detail/u010312811/9483473 1.创建一个项目，向窗体中添加NotifyIcon控件和ContextMenu
- 2020数学建模A题
2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据