大家帮我看一下这段代码有什么问题啊
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellApi;
const
WM_BARICON = WM_USER + 200;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
function createNotifyIcon:PNotifyIconData; //创建托盘图标
procedure deleteNotifyIcon(lpData:PNotifyIconData); //删除托盘
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
AppniData:PNotifyIconData = nil; //应用程序图标
implementation
{$R *.dfm}
function Tform1.createNotifyIcon:PNotifyIconData;
var lpData:PNotifyIconData;
begin
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID := 0;
lpData.szTip := '点击恢复窗口';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD, lpData);
dispose(lpData);
result := lpData;
end;
procedure TForm1.deleteNotifyIcon(lpData:PNotifyIconData);
begin
Shell_NotifyIcon(NIM_DELETE,@lpData);
dispose(lpData);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AppniData := createNotifyIcon();
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
deleteNotifyIcon(AppniData);
end;
end.
