如何使程序最小化后在屏幕右下角显示小图标？

[wsshun]

[csdn2000]

http://www.csdn.net/Delphi/index.htm下有你所需要的。

[eaglet]

uses ....,ShellApi ;
type
TMainForm = class(TForm)
....
public
ShellNotify(mode : BYTE);
procedure OnNotifyIcon(var message: TMessage); message NOTIFYEVENT;
procedure OnSysCommand(var message: TMessage); message WM_SYSCOMMAND;
end ;

procedure TMainForm.ShellNotify(mode : BYTE);
//小图标处理函数
//mode 为0 加入小图标,为其它值删除小图标
var
notifyIcon : TNotifyIconData;
begin
notifyIcon.cbSize := sizeof(notifyIcon);
notifyIcon.Wnd := MainForm.Handle;
notifyIcon.uID := 100;
notifyIcon.uCallbackMessage := NOTIFYEVENT;//按下小图标触发的事件号
notifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
notifyIcon.hIcon := MainForm.Icon.Handle; //图标句柄
notifyIcon.szTip := 'title';

if Mode = 0 then
Shell_NotifyIcon(NIM_ADD,@notifyIcon)
else
Shell_NotifyIcon(NIM_DELETE,@notifyIcon);
end;

procedure TMainForm.OnNotifyIcon(var message: TMessage);
//小图标事件处理函数
begin

end ;

procedure TMainForm.OnSysCommand(var message: TMessage);
//最小化时隐藏主窗体
begin
Inherited;
if message.wParam = SC_MINIMIZE then
MainForm.Visible := False;

end;