delphi制作的托盘程序

unit uMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi,
Menus, Buttons, ExtCtrls;
const
mousemsg = wm_user 1;
iid = 100;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
PopupMenu1: TPopupMenu;
exit1: TMenuItem;
SpeedButton2: TSpeedButton;
procedure SQLLMClick(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure exit1Click(Sender: TObject);
private
{ Private declarations }
procedure mousemessage(var message: tmessage); message
mousemsg;
public
{ Public declarations }
procedure exec(sender: tobject);
end;

var
Form1: TForm1;
ntida: TNotifyIcondataA;
implementation

{$R *.DFM}
procedure TForm1.mousemessage(var message: tmessage);
var
mousept: TPoint;
begin
inherited;
if message.LParam = wm_rbuttonup then begin
getcursorpos(mousept);
popupmenu1.popup(mousept.x, mousept.y);
end;
if message.LParam = wm_lbuttonup then begin
ShowWindow(Handle, SW_SHOW);
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
end;
message.Result := 0;
end;

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa);
ntida.Wnd := handle;
ntida.uID := iid; ntida.uFlags := nif_icon nif_tip
nif_message; ntida.uCallbackMessage := mousemsg;
ntida.hIcon := Application.Icon.handle;
ntida.szTip := ''''Icon'''';
shell_notifyicona(NIM_ADD, @ntida);
end;

procedure TForm1.exit1Click(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa);
ntida.wnd := handle;
ntida.uID := iid;
ntida.uFlags := nif_icon nif_tip nif_message;
ntida.uCallbackMessage := mousemsg;
ntida.hIcon := Application.Icon.handle;
ntida.szTip := ''''Icon'''';
shell_notifyicona(NIM_DELETE, @ntida);
Application.Terminate;
end;

end.

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有