unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, ShellApi;
Const ICON_MESSAGE = WM_USER + 100;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure InitIcon;
procedure OnIconNotify(var Message: TMessage); message ICON_MESSAGE;
procedure WMSysCommand(var Sysss: TWMSysCommand);message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
nid: TNotifyIconData;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMSysCommand(var Sysss: TWMSysCommand);
begin
with Sysss do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) then
begin
if not Shell_NotifyIcon(NIM_ADD,@nid) then
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, ShellApi;
Const ICON_MESSAGE = WM_USER + 100;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure InitIcon;
procedure OnIconNotify(var Message: TMessage); message ICON_MESSAGE;
procedure WMSysCommand(var Sysss: TWMSysCommand);message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
nid: TNotifyIconData;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMSysCommand(var Sysss: TWMSysCommand);
begin
with Sysss do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) then
begin
if not Shell_NotifyIcon(NIM_ADD,@nid) then