Собственные часы в трее

[Crivel]

Я написал программу(часы). Как мне эти часы поместить в трей т.е. как стандартные часы виндоса. Искал в гугле, но так и не нашёл.
Заранее благодарен!

[Ntlegend]

рисуешь эти часы на какой нить битмап, преобразовываешь его в иконку и потом не линишься нажать сюда

[Crivel]

Да, у меня была такая идея. Но есть какой-нибудь другой способ? Дело в том что выходит не очень качественно.

[Ntlegend]

если ты часы пытаешься сжать к размерам 32х32 - то у тебя ничего нормального не получится.. попробуй чделать не 1 иконку а 3 (отдельно под часы минуты и секунды) или же сделай чтобы иконка была шириной не 32 а больше..

[Stilet]

Вот как я представляю собственные часы в трее:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     v:variant;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var h:HWND;wp:WINDOWPLACEMENT;
begin
 h:=FindWindow('Shell_TrayWnd','');
 h:=FindWindowEx(h,0,'TrayNotifyWnd','');
 h:=GetWindow(h,GW_CHILD);
 Align:=alClient;
 BorderStyle:=bsNone;
 top:=0;left:=0;
 windows.SetParent(Handle,h);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(now);
end;

end.

При желании можно сделать Трей поширшее.

[Crivel]

Спасибо большое!

[spirit-ua]

У меня вопрос:
как сделать ЭТО окно шире???
На сколько я понимаю ширина установливается аналогичная как у "TrayWnd", как сделать ее шире?