[orbb]

хочу пример на часы в трее

[Amgsys HQ]

Что-то не понятно. Может опишешь как нибудь по подробнее?

Вот простой пример получения текущего времени:

Код:

uses
  SysUtils;

var
  S: String; // Время храниться здесь

begin
  S := TimeToStr(Now);
end;

[orbb]

примерно http://www.rcis.co.za/dale/tclockex/index.htm

[Amgsys HQ]

Сообщение от orbb

примерно http://www.rcis.co.za/dale/tclockex/index.htm

Пробовал искать в исходниках на этом сайте? Вроде что-то похожее уже было. Там вроде делается через перехват сообщений и FindWindow... Но могу ошибаться. Сам этим не занимался, только просматривал.

[orbb]

Исходник нет. мне интересно как ето делается. все ровно спасибо. удачи .С Новым Годом

[angvelem]

Ищи по тематике "иконка в трее".
Может это поможет:

Код:

function TaskBarAddIcon(hWindow: THandle; ID: Cardinal; ICON: hIcon;
			CallbackMessage: Cardinal; Tip: PChar): Boolean;
var
  NID: TNotifyIconData;
begin
  FillChar(NID, SizeOf(TNotifyIconData), 0);
  with NID do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd    := hWindow;
    uID    := ID;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := CallbackMessage;
    hIcon  := Icon;
    lstrcpyn(szTip, Tip, SizeOf(szTip));
  end;
  Result := Shell_NotifyIcon(NIM_ADD, @NID);
end;

function TaskBarModifyIcon(hWindow: THandle; ID: Cardinal; Flags: Cardinal;
			  ICON: hIcon; Tip: PChar): Boolean;
var
  NID: TNotifyIconData;
begin
  FillChar(NID, SizeOf(TNotifyIconData), 0);
  with NID do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd    := hWindow;
    uID    := ID;
    uFlags := Flags;
    hIcon  := Icon;
    lstrcpyn(szTip, Tip, SizeOf(szTip));
  end;
  Result := Shell_NotifyIcon(NIM_MODIFY, @NID);
end;

function TaskBarDeleteIcon(hWindow: THandle; ID: Integer): Boolean;
var
  NID: TNotifyIconData;
begin
  FillChar(NID, SizeOf(TNotifyIconData), 0);
  with NID do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd    := hWindow;
    uID    := ID;
  end;
  Result := Shell_NotifyIcon(NIM_DELETE, @NID);
end;

на контексте такой иконки можно выводить текущее время.

[orbb]

Спасибо но ето не проблем , я иконки легко добавляю в трее ,
интересно стало что б вставит болшое окно в трее и отображат на него что угодно.
Моя прога Hook увидит часик как окно стиле TrayClockWClass , интересно
его метод вставления в трее.
я написал маленкою прогу на асме что б вставит бутон и статик в трее
но при етом таскбар блокирует но все ровно увидется мой бутон на трее.
когда питаюс создат второе окно в стиле TrayClockWClass , тогда уин не дает и возвращает хендел 0.

[angvelem]

Сообщение от orbb

...когда питаюс создат второе окно в стиле TrayClockWClass , тогда уин не дает и возвращает хендел 0...

И не сможешь создать. Это Custom класс, созданный специально для часов и находящийся в timedate.cpl.