Своё окно в трее

[Altera]

Вот здесь можно скачать часы, которые отображаються в трее вместь виндоусных. Они суют туда свою форму? Как это сделать мне?

[Air]

А может прога как-то хендлы меняет и винда просто другой рисунок туда ставит...

[Altera]

Незнаю....

[Air]

Да, сто пудово что то с прорисовкой связано, там так же как и у раб. стола есть хэндл, надо только понять как его найти и просто в Канве попробовать рисовать твою форму.

[N!ckeL]

var
  h:HWND;
  f:TForm;
begin
  h:=FindWindow('Shell_TrayWnd', nil);
  h:=FindWindowEx(h, HWND(0), 'TrayNotifyWnd', nil);
  f:=TForm.Create(nil);
  f.ParentWindow:=h;
  f.BorderStyle:=bsNone;
  f.Width:=50;
  f.Height:=25;
  f.Color:=clRed;
  f.Show;
end;

осталось только часики на форме нарисовать...

[Altera]

Почти то, что надо N!ckel, мне надо, что бы форма вместо часов была, а не закрывала все значки треи.
Норм:

С часами:

[Air]

Я думаю надо работать с полученным хендлом того места и увеличить пространство под форму.
Дык, а что... взломай прогу и узнай как она работает.....
вот
http://www.programmersforum.ru/showthread.php?t=20278
мою высокоуровневую защиту сняли assembler-ом

[Showy]

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

var
  h, clockHwnd:HWND;
  f: TForm;
  r :TRect;
begin
  h := FindWindow('Shell_TrayWnd', nil);
  h := FindWindowEx(h, HWND(0), 'TrayNotifyWnd', nil);
  ClockHwnd := FindWindowEx(h, HWND(0), 'trayclockwclass', nil);
  ShowWindow(ClockHwnd, SW_HIDE); //прячем стандартные часы
  f:=TForm.Create(nil);
  f.ParentWindow := h;
  f.BorderStyle:=bsNone;
  f.Width := 100; 
  f.Height := 50; //размеры для панели задач высотой в 60 пикселей
  GetWindowRect(h, r);
  SetWindowPos(h, 0 ,r.Left - f.Width, 0, r.Right - r.Left + f.Width, r.Bottom - r.Top,0); //устанавливаем размер и позицию трею
  SetWindowPos(f.Handle,0 ,r.Right - r.Left, 5, f.Width - 10, f.Height,0);//устанавливаем размер и позицию нашей форме
  f.Color:=clRed;
  f.Show;

[Altera]

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

Я думаю надо работать с полученным хендлом того места и увеличить пространство под форму.
Дык, а что... взломай прогу и узнай как она работает.....
вот
http://www.programmersforum.ru/showthread.php?t=20278
мою высокоуровневую защиту сняли assembler-ом

Незнаю ассемблера

[Altera]

Может как-то управлять формой часами, научите, я не умею...