traydemo.dpr

本例程是利用Windows API函数Shell_NotifyIcon()实现系统托盘图标功能,这个函数和其他处理Windows外壳的函数都包含在ShellAPI单元中 在窗口创建时在Windows

program TrayDemo;

uses
  Forms,
  TrayIcon in 'TrayIcon.pas' {frmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.