Иконка в трее

[CraZZZy-GameRRR]

Как вывести иконку в трее для программы без окна (демона)?

program Project1;

{$R *.dres}

uses
  SysUtils,
  TrayIcon;

var
  TrayIcon1: TTrayIcon;
begin
  TrayIcon1 := TTrayIcon.Create(nil);
  TrayIcon1.Visible := True;

  while True do
    Sleep(1000);
end.

Ошибка: [DCC Error] Project1.dpr(13): E2003 Undeclared identifier: 'Visible'

Delphi 2006 и 2010

[tsar_]

program Project1;

uses
  SysUtils, ExtCtrls;

{$R *.res}

var
  TrayIcon: TTrayIcon;

begin
  TrayIcon:=TTrayIcon.Create(nil);
  TrayIcon.Visible:=True;

  Sleep(5000);

  TrayIcon.Visible:=False;
  TrayIcon.Free;
end.

Delphi 2010.

[newerow1989]

uses ShellAPI;

type
  TDUMMYUNIONNAME = record
  case Integer of
    0: (uTimeout:UINT);
    1: (uVersion:UINT);
  end;
  TNewNotifyIconData = record
    cbSize:DWORD;
    Wnd:HWND;
    uID:UINT;
    uFlags:UINT;
    uCallbackMessage:UINT;
    hIcon:HICON;
    szTip:array[0..127] of Char;
    //Version 5.0 is 128 chars, old ver is 64 chars
    dwState:DWORD;
    dwStateMask:DWORD;
    szInfo:array[0..255] of Char;
    DUMMYUNIONNAME:TDUMMYUNIONNAME;
    szInfoTitle:array[0..63] of Char;
    dwInfoFlags:DWORD;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var nidata:TNewNotifyIconData;
begin
   With nidata do
   begin
      cbSize:=SizeOf(nidata);
      Wnd:=Form1.Handle;
      uID:=5;
      uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallBackMessage:=WM_USER;
      hIcon:=Application.Icon.Handle;
      StrPCopy(szTip,'My programm');
   end;
   Shell_NotifyIcon(NIM_ADD,@nidata);
   Sleep(1000);
   With nidata do
   begin
      cbSize:=SizeOf(nidata);
      Wnd:=Form1.Handle;
      uID:=5;
      uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP or $10;
      uCallBackMessage:=WM_USER;
      StrPCopy(szInfo,'Щелкните здесь для подробности');
      StrPCopy(szInfoTitle,'My programm - sms');
      { dwInfoFlags:       }
      { 0: нет иконки       }
      { 1: информация       }
      { 2: внимание         }
      { 3: ошибка           }
      { 4: значок программы }
      dwInfoFlags:=2;
   end;
   Shell_NotifyIcon(NIM_MODIFY,@nidata);
   Sleep(3000);
   With nidata do
   begin
      cbSize:=SizeOf(nidata);
      Wnd:=Form1.Handle;
      uID:=5;
   end;
   Shell_NotifyIcon(NIM_DELETE,@nidata);
end;

[min@y™]

Не сойдёт.
1. По условию задачи приложение безоконное.
2. Если юзается VCL, то нет смысла городить твой винапишный код - велика вероятность косяков настрогать.

Согласен?

[kutani]

Сойдет )

Нет смысла от иконки, если она тупо будет висеть в трее без возможности взаимодействия пользователя с ней. А значит необходим обработчик сообщений от нее. Посылать сообщения проще всего окну, а раз юзается VCL да еще и Delphi, то всегда можно сымитировать окно через AllocateHWnd() и передать полученный хэндл в структуру TNewNotifyIconData. По завершении приложения прибить через deAllocateHWnd().

А что касаемо готовой обертки, конечно удобно использовать готовый класс, в котором как раз и идет описанный финт ушами через AllocateHWnd(). Т.е. окно как в посту #2, так и #3 создается.

[min@y™]

да ладно, если уж VCL, то uses Forms достаточно, чтобы вообще не юзать винапи напрямую: объект Application рулить будет. Это сильно упростит и ускорит отладку проги, сократит исходник... Однако, увеличит размер ехе на 1-1,5 МБ (да и пофиг).