程序一启动就显示在托盘中，如何实现
我做一个程序，想在程序一启动就在托盘中，想用时，再点击托盘。
我已经做出点最小化时在托盘中显示，但我不知道怎么让程序一启动就在托盘中显示，而且窗口不要显示。
这是现在已作出来功能的源码
{接收本程序系统命令}
[code=Delphi(Pascal)][/code]
const
WM_BARICON = WM_USER+200;
type
TMainForm = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
procedure WMBarIcon(var Msg: TMessage); message WM_BARICON;
end;
procedure TMainForm.WMSysCommand(var Msg: TMessage);
var
lpdata: PNotifyIconData;
begin
if Msg.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
New(lpData);
lpData.cbSize := 88;
lpData.Wnd := self.Handle;
lpData.hIcon := Application.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID := 0;
StrCopy(lpData.szTip,PChar(self.Caption));
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,lpData);
Dispose(lpData);
Self.Visible := False;
end
else
begin
//如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
DefWindowProc(self.Handle,Msg.Msg,Msg.WParam,Msg.LParam);
end;
end;
procedure TMainForm.WMBarIcon(var Msg:TMessage);
var
lpData:PNotifyIconData;
begin
if (Msg.LParam = WM_LBUTTONDOWN) then
begin
//如果用户点击任务栏图标则将图标删除并回复窗口。
New(lpData);
lpData.cbSize := 88;
lpData.Wnd := self.Handle;
lpData.hIcon := Application.Icon.Handle;
//lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
StrCopy(lpData.szTip,PChar(self.Caption));
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_DELETE,lpData);
Dispose(lpData);
Self.Visible := True;
end;
end;
[code=Delphi(Pascal)][/code]
[解决办法]
可以在主窗体创建时增加TrayIcon的代码，hoho ，这种代码到处都是，
[解决办法]
procedure TfrmMain.FormCreate(Sender: TObject)
...
ShowWindow(frmMain.Handle,SW_HIDE);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW or
GetWindowLong(Handle,GWL_EXSTYLE));
...
运行起来时就隐藏主窗体
[解决办法]
方法一：
“我已经做出点最小化时在托盘中显示，但我不知道怎么让程序一启动就在托盘中显示，而且窗口不要显示。”
对策：
将主Form的windowstate设为最小化
方法二：
就是加TrayIcon的代码（用控件也可），同时在主Form中加入相应隐藏主窗体的代码：
showmainform:=false;
...
[解决办法]
up
[解决办法]
TrayIcon的代码确实网上很多。我也一直在用。
[解决办法]
Copy来的。
unit JrTrayIcon;interfaceuses SysUtils, Classes, Windows, Forms, Graphics, Controls, ExtCtrls, Messages, Menus, ShellAPI;const WM_NOTIFYICON = WM_USER + 1;type TJrTrayIcon = class(TComponent) private { Private declarations } FHideMainForm: Boolean; FMainWin: TForm; FWindowHandle: HWND; FActive: Boolean; FAnimate: Boolean; FAnimateInterval: Integer; FImages: TImageList; FCurrentImageIndex: Integer; FTimer: TTimer; FIcon: TIcon; FOriginalIcon: TIcon; FHint: String; FShowDesigning: Boolean; FPopupMenu: TPopupMenu; FOnClick: TNotifyEvent; FOnDblClick: TNotifyEvent; FOnRightClick: TNotifyEvent; FIconData: TNotifyIconData; procedure SetHint(const Value: String); procedure SetIcon(const Value: TIcon); procedure SetActive(const Value: Boolean); procedure SetAnimate(const Value: Boolean); procedure SetAnimateInterval(const Value: integer); procedure SetHideMainForm(const Value: Boolean); procedure SetShowDesigning(const Value: Boolean); procedure ChangeIcon(Sender: TObject); procedure DoRightClick(Sender: TObject); procedure WndProc(var Msg: TMessage); procedure FillDataStructure; function AddIcon: Boolean; function DeleteIcon: Boolean; function ModifyIcon: Boolean; protected { Protected declarations } procedure Notification(AComponent: TComponent; Operation: TOperation); override ; public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; property HideMainForm: Boolean read FHideMainForm write SetHideMainForm default False; published { Published declarations } property Active: Boolean read FActive write SetActive default False; property Animate : Boolean read FAnimate write SetAnimate default False; property AnimateInterval : integer read FAnimateInterval write SetAnimateInterval default 300; property Hint: String read FHint write SetHint; property Icon: TIcon read FIcon write SetIcon; property Images : TImageList read FImages write FImages ; property MainForm : TForm read FMainWin write FMainWin; property PopupMenu : TPopupMenu read FPopupMenu write FPopupMenu; property ShowDesigning : Boolean read FShowDesigning write SetShowDesigning default False; property OnClick : TNotifyEvent read FOnClick write FOnClick; property OnDblClick : TNotifyEvent read FOnDblClick write FOnDblClick; property OnRightClick: TNotifyEvent read FOnRightClick write FOnRightClick; end;implementation{ TJrTrayIcon }function TJrTrayIcon.AddIcon: Boolean;begin FillDataStructure; Result:=Shell_NotifyIcon(NIM_ADD, @FIconData);end;procedure TJrTrayIcon.ChangeIcon(Sender: TObject);var temp: TIcon;begin temp:=TIcon.Create; try if FCurrentImageIndex = FImages.Count - 1 then FCurrentImageIndex:=0 else Inc(FCurrentImageIndex); FImages.GetIcon(FCurrentImageIndex, temp); SetIcon(temp); finally temp.Free; end;end;constructor TJrTrayIcon.Create(AOwner: TComponent);begin inherited; FWindowHandle:=Classes.AllocateHWnd(WndProc); FTimer:=TTimer.Create(Self); FTimer.Enabled:=False; FAnimateInterval:=300; FTimer.Interval:=FAnimateInterval; FTimer.OnTimer:=ChangeIcon; FHideMainForm:=False; if AOwner is TForm then FMainWin:=TForm(AOwner) else FMainWin:=Nil; FIcon:=TIcon.Create; FIcon.Assign(Application.Icon); FOriginalIcon:=TIcon.Create; FOriginalIcon.Assign(FIcon); FActive:=False; FAnimate:=False; FHint:=ClassName; FShowDesigning:=False; FCurrentImageIndex:=0;end;function TJrTrayIcon.DeleteIcon: Boolean;begin Result:=Shell_NotifyIcon(NIM_DELETE, @FIconData);end;destructor TJrTrayIcon.Destroy;begin if (not(csDesigning in ComponentState) and FActive) or ((csDesigning in ComponentState) and FShowDesigning) then DeleteIcon; FTimer.Free; FIcon.Free; FOriginalIcon.Free; Classes.DeallocateHWnd(FWindowHandle); inherited;end;procedure TJrTrayIcon.DoRightClick(Sender: TObject);var MouseCo: TPoint;begin if Assigned(FPopupMenu) then begin GetCursorPos(MouseCo); SetForegroundWindow(Application.Handle); Application.ProcessMessages; FPopupmenu.Popup(Mouseco.X, Mouseco.Y); end; if Assigned(FOnRightClick) then FOnRightClick(Sender);end;procedure TJrTrayIcon.FillDataStructure;begin FIconData.cbSize:=Sizeof(FIconData); FIconData.Wnd:=FWindowHandle; FIconData.uID:=0; FIconData.uFlags:=NIF_TIP + NIF_ICON + NIF_MESSAGE; FIconData.uCallbackMessage := WM_NOTIFYICON; FIconData.hIcon:=FIcon.Handle; StrPCopy(FIconData.szTip, FHint);end;function TJrTrayIcon.ModifyIcon: Boolean;begin FillDataStructure; if (not(csDesigning in ComponentState) and FActive) or ((csDesigning in ComponentState) and FShowDesigning) then Result:=Shell_NotifyIcon(NIM_MODIFY, @FIconData) else Result:=True;end;procedure TJrTrayIcon.Notification(AComponent: TComponent; Operation: TOperation);begin inherited; if (AComponent = FImages) and (Operation = opRemove) then begin FAnimate:=False; FImages:=Nil; end else if (AComponent = FPopupMenu) and (Operation = opRemove) then FPopupMenu:=Nil;end;procedure TJrTrayIcon.SetActive(const Value: Boolean);begin if FActive <> Value then begin FActive:=Value; if not(csdesigning in ComponentState) and FActive then AddIcon else if not((csdesigning in ComponentState) and FShowDesigning) then DeleteIcon; end;end;procedure TJrTrayIcon.SetAnimate(const Value: Boolean);begin if FAnimate <> Value then begin FAnimate:=Value; if (FImages <> Nil) and (FImages.Count > 0) then FTimer.Enabled:=FAnimate; if FAnimate then begin FOriginalIcon.Assign(FIcon); FCurrentImageIndex:=0; end else SetIcon(FOriginalIcon); end;end;procedure TJrTrayIcon.SetAnimateInterval(const Value: integer);begin if Value > 0 then begin FAnimateInterval:=Value; FTimer.Interval:=FAnimateInterval; end;end;procedure TJrTrayIcon.SetHideMainForm(const Value: Boolean);begin if FMainWin = Nil then Exit; if FHideMainForm <> Value then begin FHideMainForm := Value; if FHideMainForm then ShowWindow(FMainWin.Handle, SW_HIDE) else ShowWindow(FMainWin.Handle, SW_SHOWNORMAL); end;end;procedure TJrTrayIcon.SetHint(const Value: String);begin if Length(Value) > 62 then FHint:=Copy(Value, 1, 62) else FHint:=Value; ModifyIcon;end;procedure TJrTrayIcon.SetIcon(const Value: TIcon);begin if FIcon <> Value then begin FIcon.Assign(Value); ModifyIcon; end;end;procedure TJrTrayIcon.SetShowDesigning(const Value: Boolean);begin if csdesigning in ComponentState then if FShowDesigning <> Value then begin FShowDesigning:=Value; if FShowDesigning then AddIcon else DeleteIcon; end;end;procedure TJrTrayIcon.WndProc(var Msg: TMessage);begin with Msg do if (Msg = WM_NOTIFYICON) then begin case lParam of WM_LBUTTONDBLCLK: if Assigned(FOnDblClick) then FOnDblClick(Self); WM_LBUTTONUP : if Assigned(FOnClick)then FOnClick(Self); WM_RBUTTONUP : DoRightClick(Self); end; end else // Handle all messages with the default handler Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);end;end.
[解决办法]
下载 TrayIcon 控件
[解决办法]
这个控件做的不错！
[解决办法]
楼主，我完全按照你的要求“程序一启动就在托盘中显示，而且窗口不要显示。 ”做了一个工程。
你启动DELPHI后点全部保存，保存后得到四个文件：Project1.DPR、Unit1.PAS、Unit1.DFM、Project1.res
关闭DELPHI，用记事本打开Unit1.PAS文件，用下面的内容替换：
unit Unit1;interfaceuses Windows,ShellAPI, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;//必须包含：ShellAPIconst WM_NID=WM_USER+1000; //自定义此消息，为托盘事件打好基础。type TForm1 = class(TForm) PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); private { Private declarations } procedure mwy(var Msg:TMessage);Message WM_NID;//过程声明。用于响应托盘单击或右击等事件。 public { Public declarations } end;var Form1: TForm1; NotifyIcon:TNotifyIconData;//定义托盘类型变量。implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin with NotifyIcon do begin cbSize:=SizeOf(TNotifyIconData); //变量的字节数 Wnd:=Handle; //主窗口句柄 uID:=19; // 内部标识，可设为任意数。如果建立多这托盘，这个是区分它们的标志。 uFlags:=NIF_ICON OR NIF_TIP OR NIF_MESSAGE; uCallBackMessage:=WM_NID; //回调函数消息 hIcon:=Application.Icon.Handle; //要加入的图标句柄。这里设定为程序自身所附带的图标。 szTip:='单击显示或隐藏主窗体，右击获取更多功能……'; //提示字符串 end; Shell_NotifyIcon(NIM_ADD,@NotifyIcon);//不显示任务按扭：SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);end;procedure TForm1.mwy(var Msg:TMessage);var mouse:TPoint;begin if msg.LParam=WM_LBUTTONDOWN then MessageBox(0,chr(13)+'发现你单击了鼠标左键！','→崔少云⊙制作',MB_OK+MB_ICONINFORMATION); if msg.LParam=WM_RBUTTONDOWN then begin GetCursorPos(mouse); PopupMenu1.Popup(mouse.X,mouse.Y); end;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin//最终退出程序时删除托盘小图标。 NotifyIcon.cbSize:=SizeOf(TNotifyIconData); //变量的字节数 NotifyIcon.Wnd:=Handle; //主窗口句柄 NotifyIcon.uID := 19; //内部标识，与加入小图标时的数一致 Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);//去掉托盘小图标end;procedure TForm1.N1Click(Sender: TObject);beginform1.Visible:=Not form1.Visible;end;procedure TForm1.N2Click(Sender: TObject);beginclose;end;end.
[解决办法]
trayIcon控件
[解决办法]
TrayIcon控件及代碼