收藏 如何在运行程序时使窗体不可见,只留下系统托盘区的程序图标? [问题点数:0分]
hans222
小李
等级:
结帖率:100%
楼主 发表于: 2003-05-15 19:54:18
我是一个delphi初学者,我参照一编关于“CDROM软开关”的文章,写了下面这个unit1.pas代码如下:
unit Unit1;
interface
uses
Windows, Messages,shellapi, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, mmsystem;
const
ICON_ID=1;
//ICON的ID标志
MI_ICONEVENT=WM_USER+1;
//自定义ICON事件消息
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
open: TMenuItem;
close: TMenuItem;
shutdown: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure openClick(Sender: TObject);
procedure closeClick(Sender: TObject);
//procedure shutdownclick(Sender: TObject);
private
{ Private declarations }
{ Private declarations }
NormalIcon,DisabledIcon:TIcon;
//正常和失效两种情况下的图标
Status:Boolean;
//标志"允许使用"还是"禁止使用"}
procedure InstallIcon;
//procedure ChangeIcon(s:Boolean);
procedure UnInstallIcon;
procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;
//捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{procedure TForm1.ChangeIcon(s:Boolean);
//自定义过程ChangeIcon,改变本程序在指示状态栏的图标
var
IconData:TNotifyIconData;
begin
IconData.cbSize:=SizeOf(IconData);
IconData.Wnd:=Handle;
IconData.uID:=ICON_ID;
if s=False then //禁止使用
begin
IconData.hIcon:=DisabledIcon.Handle;
Status:=False;
end
else //允许使用
begin
IconData.hIcon:=Normalicon.Handle;
Status:=True;
end;
IconData.uFlags:=NIF_ICON;
Shell_NotifyIcon(NIM_MODIFY,@IconData);
end;}
procedure TForm1.IconOnClick(var message:TMessage);
//处理鼠标在指示状态栏对应的图标上的单击事件
var
p:TPoint;
begin
//如果按下的是鼠标左键,并且允许显示,则显示Form2
{if((message.lParam=WM_LBUTTONDOWN) and (Status=True)) then
Form2.Show;}
//如果按下的是鼠标右键,则显示弹出菜单
if(message.lParam=WM_RBUTTONDOWN)then
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.y);
end;
end;
procedure TForm1.InstallIcon;
//安装图标
var
IconData:TNotifyIconData;
begin
NormalIcon:=TIcon.Create;
DisabledIcon:=TIcon.Create;
NormalIcon.LoadFromFile('normal.ico');
//在托盘区显示一个CDROM图标
IconData.cbSize:=SizeOf(IconData);
IconData.Wnd:=Handle;
IconData.uID:=ICON_ID;
IconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
IconData.uCallBackMessage:=MI_ICONEVENT;
IconData.hIcon:=NormalIcon.Handle;
IconData.szTip:='CDROM软开关';
//鼠标悬在状态指示栏对应的图标上时的提示信息
Shell_NotifyIcon(NIM_ADD,@IconData);
end;
procedure TForm1.UnInstallIcon;
//卸载图标
var
IconData:TNotifyIconData;
begin
IconData.cbSize:=SizeOf(IconData);
IconData.Wnd:=Handle;
IconData.uID:=ICON_ID;
Shell_NotifyIcon(NIM_DELETE,@IconData);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnInstallIcon;
//卸载图标
NormalIcon.Free;
DisabledIcon.Free;
//释放两个图标资源
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Status:=True;
InstallIcon;
//安装图标
ShowWindow(Application.Handle,SW_HIDE);
//隐藏主窗体
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
//在切换状态栏上不显示程序图标
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.width:=0;
Form1.Height:=0;
ShowWindow(Application.Handle,SW_HIDE);
//隐藏Form1
{form1.Hide}
end;
procedure TForm1.openClick(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;
procedure TForm1.closeClick(Sender: TObject);
begin
mcisendstring('set cdaudio door closed wait',nil,0,handle);
end;
end.
我现在想在程序运行时使窗体不可见,只剩下系统托盘区的程序图标,请问用什么语句,我上面的代码还是会显示窗体。请指教
hch_45
痞子宏
等级:
#1 得分:0 回复于: 2003-05-15 20:00:12
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false; //在项目文件中加这句
Application.Run;
end.
【免费】解读海外市场营销奥秘 对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 | TOP
hch_45
痞子宏
等级:
#2 得分:0 回复于: 2003-05-15 20:00:48
begin
Application.Initialize;
Application.ShowMainForm:=false; //在项目文件中加这句
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
第三、四期“Hadoop技术赢门票”活动:聚焦HIVE与HDFS对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 | TOP
xylyge
很想学好
等级:
#3 得分:0 回复于: 2003-05-15 20:02:57
你也可以用cooltrayicon 控件!
手机QQ浏览器4.0 for Android有奖评测对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 | TOP
itczy
浪子曹
等级:
#4 得分:0 回复于: 2003-05-15 20:34:31
用API呀。
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 | TOP
xiaoyuer0851
红旗下的蛋
等级:
#5 得分:0 回复于: 2003-05-15 20:46:42
楼上的,我使用api后,在任务栏中是没有了,在系统托盘中是有一个小图标
但是在任务屏幕上就会出现一个小的栏目,就有点象那个qq登陆的时候最小化一样,在任务栏之上
的界面上会出现一个小的栏目,请指教
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 | TOP
lf43
小飞侠
等级:
#6 得分:0 回复于: 2003-05-15 21:03:31
cooltrayicon可以