怎么使程序最小化时只显示在任务栏右下角

unit Unit1;interfaceuses
Windows,shellapi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,AppEvnts, ImgList, Menus;
{一定要uses shellapi单元}
const
ghy_tray=wm_user+2;
type
TForm1 = class(TForm)
ImageList1: TImageList;
ApplicationEvents1: TApplicationEvents;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure ApplicationEvents1Minimize(Sender: TObject);
procedure ApplicationEvents1Restore(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand(var msg: TMessage);message wm_syscommand;
{ Private declarations }
public
procedure mytray(var Msg: TMessage); message ghy_tray;
{ Public declarations }
end;var
Form1: TForm1;
tray1,tray2:TNotifyIconData;
ico1,ico2:ticon;
tags:boolean;
implementation{$R *.DFM}
procedure Tform1.WMSysCommand(var msg: TMessage);
begin
if msg.WParam = SC_MINIMIZE then
begin
showwindow(application.handle,sw_hide);
inherited;
end
else
inherited;
end;procedure tform1.mytray(var Msg: TMessage);
var
pt:tpoint;
begin
GetCursorPos(pt);case msg.lParam of
WM_LBUTTONDOWN:
begin
//鼠标左键被按下
if tags=true then
begin
application.Minimize;
form1.Hide;
end
else
begin
application.Restore;
end;
end;WM_LBUTTONUP:
begin
//释放鼠标左键
end;
wm_rbuttondown:
begin
//鼠标右键被按下
SetForegroundWindow(Form1.Handle);
form1.PopupMenu1.Popup(pt.x,pt.y);
end
else//调用父类的WndProc方法处理其它消息
inherited;
end;
end;procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
tags:=false;
ShowWindow(Application.Handle,SW_HIDE);
tray2.cbSize:=sizeof(tray2);
tray2.Wnd:=form1.Handle;
tray2.uID:=0;
tray2.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray2.uCallbackMessage:=ghy_tray;
tray2.hIcon:=ico2.Handle;
tray2.szTip:=’我的托盘程序’;
if not Shell_NotifyIcon(NIM_modify,@tray2) then
begin
ShowMessage(’no’);
end;
end;procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
tags:=true;
form1.show;ico1:=ticon.Create;
ico2:=ticon.create;
imagelist1.GetIcon(0,ico1);
imagelist1.geticon(1,ico2);
tray1.cbSize:=sizeof(tray1);
tray1.Wnd:=form1.Handle;
tray1.uID:=0;
tray1.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray1.uCallbackMessage:=ghy_tray;
tray1.hIcon:=ico1.Handle;
tray1.szTip:=’我的托盘程序’;
if not Shell_NotifyIcon(NIM_modify,@tray1) then
begin
ShowMessage(’no’);
end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ico1:=ticon.Create;
ico2:=ticon.create;
imagelist1.GetIcon(0,ico1);
imagelist1.geticon(1,ico2);
tray1.cbSize:=sizeof(tray1);
tray1.Wnd:=form1.Handle;
tray1.uID:=0;
tray1.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray1.uCallbackMessage:=ghy_tray;
tray1.hIcon:=ico1.Handle;
tray1.szTip:=’我的托盘程序’;
if not Shell_NotifyIcon(NIM_delete,@tray1) then
begin
ShowMessage(’no’);
end;end;procedure TForm1.N1Click(Sender: TObject);
begin
showmessage(’you click open’);
end;procedure TForm1.N2Click(Sender: TObject);
begin
showmessage(’you click save’);
end;procedure TForm1.N3Click(Sender: TObject);
begin
showmessage(’you click saveas’);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
tags:=true;
ShowWindow(Application.Handle,SW_HIDE);
ico1:=ticon.Create;
ico2:=ticon.create;
imagelist1.GetIcon(0,ico1);
imagelist1.geticon(1,ico2);
tray1.cbSize:=sizeof(tray1);
tray1.Wnd:=form1.Handle;
tray1.uID:=0;
tray1.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray1.uCallbackMessage:=ghy_tray;
tray1.hIcon:=ico1.Handle;
tray1.szTip:=’我的托盘程序’;
if not Shell_NotifyIcon(NIM_ADD,@tray1) then
begin
ShowMessage(’no’);
end;end;end.

如何将作一个放在windows托盘的程序
在开始之前，请看下面的需要的接口方面的内容：

   从技术方面来说，一个任务栏应用程序非常象普通的应用程序，它有一个消息循环，相应Windows的消息来完成相应的功能。

Procedure  RunTrayApplication;
Var  Msg  :  TMsg;
Begin
CreateWindow;
AddTrayIcon;
While  GetMessage(Msg,0,0,0)  do  Begin
TranslateMessage(Msg);
DispatchMessage(Msg);
End;
DeleteTrayIcon;
End;

   你能看到：所有需要做的工作是创建一个窗口，注册一个图标到任务栏，设置它的消息循环，最后关闭它。当然，必须还有增加其他代码完成相应的功能，但是，它是真的不需要担心。
让我们从窗口的创建开始。实际上，这个窗口是不是能在任务栏上能见到的窗口。相应的，这个窗口只是处理消息循环、其它父类的工作。任务窗口(Windows  95  &  NT)句柄创建消息（例如鼠标单击等）和将消息发到我们的窗口。

Procedure  CreateWindow;
Var
WC  :  TWndClass;
W  :  hWnd;
Begin
With  WC  do  Begin
Style  :=  0;
lpfnWndProc  :=  @WndProc;
cbClsExtra  :=  0;
cbWndExtra  :=  0;
hIcon  :=  0;
hCursor  :=  0;
hbrBackground  :=  0;
lpszMenuName  :=  nil;
lpszClassName  :=  'MyTrayIconClass';
hInstance  :=  System.hInstance;
end;
RegisterClass(WC);
W  :=  Windows.CreateWindow('MyTrayIconClass','MyVeryOwnTrayIconWindow',
ws_OverlappedWindow,0,0,0,0,0,0,hInstance,nil);
ShowWindow(W,sw_Hide);
UpdateWindow(W);
MainWindow  :=  W;
End;

   这个窗口使用普通的窗口函数创建。注意这个窗口的类型是“ws_OverlappedWindow”，但是这个尺寸是0，并且它是隐藏的，所有，它将不会显示出来。下一步是加(注册)我们的图标。这将需要使用Shell_NotifyIcon这个API函数，这个函数实际上可以完成三个功能，这里只需要它的增加的特性。

Procedure  AddTrayIcon;
Var  IconData  :  TNotifyIconData;
Begin
With  IconData  do  Begin
cbSize  :=  SizeOf(IconData);
Wnd  :=  MainWindow;
uID  :=  0;
uFlags  :=  nif_Icon  Or  nif_Message  Or  nif_Tip;
uCallBackMessage  :=  wm_MyCallBack;
hIcon  :=  LoadIcon(hInstance,'MYICON');
StrCopy(szTip,PChar(TrayIconTip));
End;
Shell_NotifyIcon(nim_Add,@IconData);
End;

   这个最重要的事情是TNotifyIconData的数据结构，它是一个设置Window句柄的数据结构，是一个记录参数，对我们来说，我们需要设置这个图标的窗口句柄(这将定义哪个窗口处理消息循环)，回调消息号，图标，工具提示等。一旦这个数据设置了，我们就可以增加一个图标到任务栏上了。为了完成这个工作，使用nim_Add程序。
   现行我们已经加了我们的图标到任务栏，下面需要决定如何处理消息。

Const
wm_MyCallback  =  wm_User+1000;
cm_Exit  =  100;  {  we  worry  about...  }
cm_About  =  101;  {  ...these  later  }

   这个实际的窗口处理过程也是相当普通。几个窗口消息(如wm_NCCreate)必须处理。然而，对我们来说，更重要的事情是处理wm_MyCallback和wm_Command消息：

Function  WndProc(Window  :  hWnd;  Msg,WParam,LParam  :  Integer):  Integer;  StdCall;
Begin
Result  :=  0;
Case  Msg  of
wm_NCCreate  :  Result  :=  1;
wm_Destroy  :  PostQuitMessage(0);
wm_Command  :  Begin  {  a  command  was  chosen  from  the  popup  menu  }
If  (WParam  =  cm_Exit)  Then
PostMessage(Window,wm_Destroy,0,0)
Else  If  (WParam  =  cm_About)  Then
MessageBox(0,'Shell  Test  Copyright  ?'+
'Jani  J鋜vinen  1996.',
'About  Shell  Test',mb_OK)
Else  OpenDesktopIcon(WParam-cm_About);
End;
wm_MyCallback  :  Begin  {  our  icon  was  clicked  }
If  (LParam  =  wm_LButtonDown)  Then
ShowIconPopupMenu
Else  If  (LParam  =  wm_RButtonDown)  Then
ShowAboutPopupMenu;
End;
Else  Result  :=  DefWindowProc(Window,Msg,WParam,LParam);
End;
End;

   就象你看到的一样，当用户单击图标时，Windows提示我们。注意我们不使用通常使用的wm_LButtonDown  消息，而使用wm_MyCallback  message，详细的消息信息存储在LParam参数中。
当用户单击鼠标右键，我们创建一个菜单在桌面上。

Type
TIconData  =  Array[1..100]  of  String;
Var
IconData  :  TIconData;
Procedure  ShowIconPopupMenu;
Var
ShellFolder  :  IShellFolder;
EnumIDList  :  IEnumIDList;
Result  :  hResult;
Dummy  :  ULong;
ItemIDList  :  TItemIDList;
Pntr  :  PItemIDList;
StrRet  :  TStrRet;
PopupMenu  :  hMenu;
ItemID  :  Integer;
Pos  :  TPoint;
Procedure  AddToMenu(Item  :  String);
Var  S  :  String;
Begin
IconData[ItemID-cm_About]  :=  Item;
S  :=  ExtractFileName(Item);
If  (System.Pos('.',S)  <>  0)  Then  SetLength(S,System.Pos('.',S)-1);
AppendMenu(PopupMenu,mf_Enabled  Or  mf_String,ItemID,PChar(S));
Inc(ItemID);
End;
begin
PopupMenu  :=  CreatePopupMenu;
ItemID  :=  cm_About+1;
SHGetDesktopFolder(ShellFolder);
ShellFolder.EnumObjects(MainWindow,SHCONTF_NONFOLDERS,EnumIDList);
Pntr  :=  @ItemIDList;
Result  :=  EnumIDList.Next(1,Pntr,Dummy);
While  (Result  =  NoError)  do  Begin
ShellFolder.GetDisplayNameOf(Pntr,SHGDN_FORPARSING,@StrRet);
With  StrRet  do  AddToMenu(String(CStr));
Result  :=  EnumIDList.Next(1,Pntr,Dummy);
End;
EnumIDList.Release;
ShellFolder.Release;
GetCursorPos(Pos);
AppendMenu(PopupMenu,mf_Separator,0,'');
AppendMenu(PopupMenu,mf_Enabled  Or  mf_String,cm_Exit,'E&xit');
SetForegroundWindow(MainWindow);
TrackPopupMenu(PopupMenu,tpm_LeftAlign  Or  tpm_LeftButton,
Pos.X,Pos.Y,0,MainWindow,nil);
DestroyMenu(PopupMenu);
end;

   上面的程序看起来有点复杂，你可以将它分成两个部分来看：创建和显示菜单。
列举创建菜单是用Windows的外壳接口完成的。首先，我们使用SHGetDesktopForlder函数得到使用桌面的IShellFolder接口。使用这个接口，我们能得到另一个接口的实例：IEnumIDList。这个接口通常实现实际的列举工作。我们简单的重复调用这个函数直到错误值返回(例如：所有的菜单被列举)。当我们得到一个菜单，我们使用AddToMenu函数加它。

   当所有的菜单被列举和创建后，现在我们需要运行这个菜单。我们将找到的菜单保存到一个全局的List变量中，每一个菜单都拥有它的菜单号。这确保我们能得到它的索引。

OpenDesktopIcon(WParam-cm_About)

当然，WParam中储存了用户单击鼠标的菜单的菜单号(ID)。

下面我们将处理运行用户选择的菜单。

Procedure  OpenDesktopIcon(Number  :  Integer);
Var
S  :  String;
I  :  Integer;
begin
S  :=  IconData[Number];
I  :=  ShellExecute(0,nil,PChar(S),nil,nil,sw_ShowNormal);
If  (I  <  32)  Then  Begin
S  :=  'Could  not  open  selected  item  "'+S+'".  '+
'Result  was:  '+IntToStr(I)+'.';
MessageBox(0,PChar(S),'Shell  Test',mb_OK);
End;
end;
上面，Win  32  API函数ShellExecute做了所有的工作。
---------------------------------------------------------------

unit  Unit1;

interface

uses
   Windows,  Messages,  SysUtils,  Classes,  Graphics,  Controls,  Forms,  Dialogs,
   Menus,shellapi;
const
       WM_TrayMessage=WM_User+100;
type
   TForm1  =  class(TForm)
       MainMenu1:  TMainMenu;
       N11:  TMenuItem;
       N21:  TMenuItem;
       N22:  TMenuItem;
       N23:  TMenuItem;
       N24:  TMenuItem;
       N31:  TMenuItem;
       N32:  TMenuItem;
       PopupMenu1:  TPopupMenu;
       er1:  TMenuItem;
       rer1:  TMenuItem;
       rer2:  TMenuItem;
       procedure  FormCreate(Sender:  TObject);
       procedure  FormDestroy(Sender:  TObject);
       procedure  N21Click(Sender:  TObject);
       procedure  rer1Click(Sender:  TObject);
       procedure  FormMouseMove(Sender:  TObject;  Shift:  TShiftState;  X,
           Y:  Integer);
   protected
           procedure  AppMinimized(Sender:  TObject);
           procedure  WMTrayMessage(var  msg:TMessage);message  WM_TrayMessage;

   private
       {  Private  declarations  }
   public
       {  Public  declarations  }
   end;

var
   Form1:  TForm1;
       NID:TNotifyIconData;

implementation

{$R  *.DFM}

{  TForm1  }

procedure  TForm1.AppMinimized(Sender:  TObject);
begin
NID.cbSize:=SizeOf(TNotifyIconData);
   NID.hIcon:=Application.Icon.Handle;
   NID.szTip:=  '工程一  ';
   NID.uCallbackMessage:=WM_TrayMessage;
   NID.uFlags:=NIF_ICON  or  NIF_MESSAGE  or  NIF_TIP;
   NID.uID:=0;
   NID.Wnd:=Handle;
   Shell_NotifyIcon(NIM_ADD,@NID);
   ShowWindow(Application.Handle,SW_Hide);

end;

procedure  TForm1.WMTrayMessage(var  msg:  TMessage);
var
   p:TPoint;
begin
   if  msg.LParam=WM_LButtonDown  then
       begin
           ShowWindow(Application.Handle,SW_Show);
           Application.Restore;
       end
   else  if  msg.LParam=WM_RButtonDown  then
       begin
           GetCursorPos(p);
           PopupMenu1.Popup(p.x,p.y);
       end;
end;

procedure  TForm1.FormCreate(Sender:  TObject);
//var  Owner  :  HWnd;
begin
//Owner:=GetWindow(Handle,GW_OWNER);
//  ShowWindow(Owner,SW_HIDE);

Application.OnMinimize:=AppMinimized;
   AppMinimized(nil);

end;

装一个RAIZE控件，里面有专门做托盘的控件，很方便的

在windows里不是有许多的api函数吗，用它不知道好不好用

调试易

怎么使程序最小化时只显示在任务栏右下角

解决方案 »