unit Unit1;hgMHTML5中文学习网 - HTML5先行者学习网
interfacehgMHTML5中文学习网 - HTML5先行者学习网
useshgMHTML5中文学习网 - HTML5先行者学习网
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,hgMHTML5中文学习网 - HTML5先行者学习网
Dialogs, ShellAPI, AppEvnts, StdCtrls, Menus;hgMHTML5中文学习网 - HTML5先行者学习网
const WM_NID = WM_User + 1000;hgMHTML5中文学习网 - HTML5先行者学习网
typehgMHTML5中文学习网 - HTML5先行者学习网
TForm1 = class(TForm)hgMHTML5中文学习网 - HTML5先行者学习网
PopupMenu1: TPopupMenu;hgMHTML5中文学习网 - HTML5先行者学习网
N1: TMenuItem;hgMHTML5中文学习网 - HTML5先行者学习网
N2: TMenuItem;hgMHTML5中文学习网 - HTML5先行者学习网
Label1: TLabel;hgMHTML5中文学习网 - HTML5先行者学习网
pm1: TPopupMenu;hgMHTML5中文学习网 - HTML5先行者学习网
mniN3: TMenuItem;hgMHTML5中文学习网 - HTML5先行者学习网
mniN4: TMenuItem;hgMHTML5中文学习网 - HTML5先行者学习网
procedure FormDestroy(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
procedure N1Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
procedure N2Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
procedure FormCreate(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
procedure FormClose(Sender: TObject; var Action: TCloseAction);hgMHTML5中文学习网 - HTML5先行者学习网
procedure mniN3Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
procedure mniN4Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
privatehgMHTML5中文学习网 - HTML5先行者学习网
{ Private declarations }hgMHTML5中文学习网 - HTML5先行者学习网
procedure SysCommand(var SysMsg: TMessage); message WM_SYSCOMMAND;hgMHTML5中文学习网 - HTML5先行者学习网
procedure WMNID(var msg:TMessage); message WM_NID;hgMHTML5中文学习网 - HTML5先行者学习网
publichgMHTML5中文学习网 - HTML5先行者学习网
{ Public declarations }hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
varhgMHTML5中文学习网 - HTML5先行者学习网
Form1: TForm1;hgMHTML5中文学习网 - HTML5先行者学习网
NotifyIcon: TNotifyIconData;hgMHTML5中文学习网 - HTML5先行者学习网
implementationhgMHTML5中文学习网 - HTML5先行者学习网
{$R *.dfm}hgMHTML5中文学习网 - HTML5先行者学习网
{ TForm1 }hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.SysCommand(var SysMsg: TMessage);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
case SysMsg.WParam ofhgMHTML5中文学习网 - HTML5先行者学习网
SC_MINIMIZE: // 当最小化时hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
SetWindowPos(Application.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,hgMHTML5中文学习网 - HTML5先行者学习网
SWP_HIDEWINDOW);hgMHTML5中文学习网 - HTML5先行者学习网
Hide; // 在任务栏隐藏程序hgMHTML5中文学习网 - HTML5先行者学习网
// 在托盘区显示图标hgMHTML5中文学习网 - HTML5先行者学习网
with NotifyIcon dohgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
cbSize := SizeOf(TNotifyIconData);hgMHTML5中文学习网 - HTML5先行者学习网
Wnd := Handle;hgMHTML5中文学习网 - HTML5先行者学习网
uID := 1;hgMHTML5中文学习网 - HTML5先行者学习网
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;hgMHTML5中文学习网 - HTML5先行者学习网
uCallBackMessage := WM_NID;hgMHTML5中文学习网 - HTML5先行者学习网
hIcon := Application.Icon.Handle;hgMHTML5中文学习网 - HTML5先行者学习网
szTip := '托盘程序';hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
Shell_NotifyIcon(NIM_ADD, @NotifyIcon); // 在托盘区显示图标hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
elsehgMHTML5中文学习网 - HTML5先行者学习网
inherited;hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.WMNID(var msg: TMessage);hgMHTML5中文学习网 - HTML5先行者学习网
varhgMHTML5中文学习网 - HTML5先行者学习网
mousepos: TPoint;hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
GetCursorPos(mousepos); //获取鼠标位置hgMHTML5中文学习网 - HTML5先行者学习网
case msg.LParam ofhgMHTML5中文学习网 - HTML5先行者学习网
WM_LBUTTONUP: // 在托盘区点击左键后hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
Form1.Visible := not Form1.Visible; // 显示主窗体与否hgMHTML5中文学习网 - HTML5先行者学习网
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon); // 显示主窗体后删除托盘区的图标hgMHTML5中文学习网 - HTML5先行者学习网
SetWindowPos(Application.Handle, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW); //hgMHTML5中文学习网 - HTML5先行者学习网
在任务栏显示程序hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
WM_RBUTTONUP: PopupMenu1.Popup(mousepos.X, mousepos.Y); // 弹出菜单hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.FormDestroy(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon); // 删除托盘图标hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.N1Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
Form1.Close;hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.N2Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
Form1.Visible := true; // 显示窗体hgMHTML5中文学习网 - HTML5先行者学习网
SetWindowPos(Application.Handle, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW);hgMHTML5中文学习网 - HTML5先行者学习网
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon); // 删除托盘图标hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.FormCreate(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
AnimateWindow(Handle,1000,AW_CENTER);//窗口由小变大hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
AnimateWindow (Handle, 400, AW_HIDE or AW_BLEND);//窗口渐渐消失hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.mniN3Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
Form1.Close;hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
procedure TForm1.mniN4Click(Sender: TObject);hgMHTML5中文学习网 - HTML5先行者学习网
beginhgMHTML5中文学习网 - HTML5先行者学习网
shellexecute(handle,'open','http://www.aheasy.cn',nil,nil,SW_show);hgMHTML5中文学习网 - HTML5先行者学习网
end;hgMHTML5中文学习网 - HTML5先行者学习网
end.hgMHTML5中文学习网 - HTML5先行者学习网