Надпись на часах в трее , Решил я подурачиться... ;)

[Nikfel]

Переписал код по другому. Сейчас стал использовать 1 exe файл и 1 dll файл. При завершении exe dll тоже выгружается из процесса, даже не использовал LoadLibrary. Исправил процедуру updateSize, т.к. исчезало окно выбора языка при запуске программы. Для выхода из программы щёлкаем правой кнопкой по часам в трее и появится окно из exe файла в нём щелкаем выход и должно выходить нормально. Тестировал пока только в Windows 7. Вот есть программа Clock Tray Skins для замены часов в трее, она похоже использует кок раз такой подход, как я написал, но в добавок она создаёт окно под окном часов с чёрным фоном, чтобы часы было лучше видеть.
Прикреплённый файлClock.RAR (7,9 Кбайт, скачиваний: 129)

[Nikfel]

Этот код не во всех системах Windows 7 будет работать, надо подменять не только оконную процедуру часов, но и у компонента TrayNotifyWnd. В следующие выходные думаю допишу как-надо и протестирую на других компах с Windows 7.

[Nikfel]

Переписал код по другому. Сейчас опять вернулся к тому что подгружаю dll через LoadLibrary и выключаю хук, если этого не делать то dll будет болтаться в других процессах тоже. Но проблема остаётся в выгрузке dll из процесса, т.к. выгрузка не всегда происходит(можно наверно использовать отдельную dll именно для выгрузки dll по такому принципу как загрузка, т.к. в одной dll пришлось использовать хук для загрузки WH_CALLWNDPROC, а для выгрузки WH_GETMESSAGE). В XP не правильно работает процедура updateSize - надо её переписать. Но в целом код работает только бывают небольшие проблемы.
Прикреплённый файлClock.RAR (9,96 Кбайт, скачиваний: 130)

[Nikfel]

Переписал код как раньше. Использую теперь exe для загрузки dll и выгрузки. Всего 1 exe и 3 dll. Код работает в Windows 7 и Windows XP. Загружается и выгружается без проблем, но в Windows 7 нужны права Администратора, без них не будет запускаться.

Недостаток:

Если панель задач расположить вертикально то часы не отображаются, думаю это легко можно исправить, изменив процедуру UpdateSize(вместо left задавать top). Не во всех системах Windows 7 запускается программа, подозреваю что может блокировать брандмауэр или просто надо ставить какие-то привилегии, если учетная запись не администратор.
Прикреплённый файлClock.rar (9,77 Кбайт, скачиваний: 162)

Сообщение отредактировано: Nikfel - 07.04.12, 13:42

[Krid]

Nikfel, мой тебе совет - не выкладывай свои промежуточные решения.
Доведи прогу до ума, сделай её такой, какой ты её хочешь видеть. И уже тогда выкладывай код.
Обсуждать тут буквально каждый твой шаг никому особо не интересно. Интересен конечный результат - готовый проект. На него обратит внимание гораздо больше народу, чем сейчас. Соответс-но, всякие там ошибки/проблемы/недочёты/etc. будут быстрее исправляться. Отсюда - и код будет лучше, и проект будет быстрее развиваться (если ты, конечно, именно какой-то свой проект делаешь).

ЗЫ а по большому счёту - никому это нафиг не нужно Просто когда-то я написАл эту прогу для XP после какого-то ДР, с жуткой похмелюги, чисто на спор (в том состоянии мне казалось это прикольным).
Ну а сейчас я думаю, что ты зря тратишь время, которое мог бы потратить его на что-то более полезное..

ЗЫЗЫ хотя, конечно, дело твоё. Просто программ, заменяющих часы в трее очень много. Зачем изобретать очередной лисопед? Или у тебя есть какие-то оригинальные решения? Тогда welcome!

[Spirit]

Цитата aster_x @ 17.09.06, 06:18

Alex Forth

Цитата Alex Forth @ 26.06.05, 07:48

А как свое окошко в трей внедрить?

Может быть вот так...

procedure TForm1.FormCreate(Sender: TObject);
var h,tnd:THandle;
    R:TRect;
begin
Color:=clRed;
BorderStyle:=bsNone;
h := FindWindow('Shell_TrayWnd',nil);
tnd :=FindWindowEx(h,0,'TrayNotifyWnd',nil);
 GetWindowRect(tnd,r);
 SetWindowPos(form1.Handle,HWND_TOPMOST,
 r.Left,r.Top,r.Right,r.Bottom, SWP_SHOWWINDOW);
end;

P.S. попробуй вызвать вот так если верить MSDN то должен вставить прямо в трей.
SetWindowPos(form1.Handle,
tnd,//Дескриптор окна куду будет вставленна окошко после позиционирования
//Но я лично не очень сильно верю. Хотя ... ты можешь проверить сам.
r.Left,r.Top,r.Right,r.Bottom, SWP_SHOWWINDOW);

а как раздвинуть (сделать больше) по ширине панель?

у меня не влазит, сделал таким макаром

  TextOut(DC, r.Left-20, r.Top, Pchar(cdr), length(cdr));
  TextOut(DC2, r.Left-20, r.Top+16, Pchar(day), length(day));
  TextOut(DC3, r.Left-20, r.Top+32, Pchar(date), length(date));

но при таком варианте часы "вылазят" на соседний значек...

Сообщение отредактировано: Spirit - 11.04.12, 11:23

[Krid]

Цитата Spirit @ 11.04.12, 11:21

а как раздвинуть (сделать больше) по ширине панель?

Какую панель? Вообще ничего раздвигать не нужно. Просто указываешь нужный размер в CreateWindow/SetWindowPos/etc.