traytest.dpr

图标提取器源码 非常管用．大家试试

program TrayTest;

uses
  Forms,
  WinProcs,
  TiMain in 'TiMain.pas' {MainForm},
  CoolTrayIcon in 'CoolTrayIcon.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'TrayIcon Test';
{
In stead of using StartMinimized you can insert these two lines.
This code will be executed immediately, while StartMinimized will
be executed when the TCoolTrayIcon component is loaded.
However, it makes no difference because the main form is not shown
before Application.Run is executed.

  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, SW_HIDE);
}
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.