Трей

← →
Eraser © (2006-05-31 16:59) [40]

> Джо © (31.05.06 16:43) [36]
>
> > [34] adalx (31.05.06 16:41)
> > У меня тоже делфи 7
> > А где можно качнуть новые компоненты?
>
> В библиотеке JEDI вроде есть что-то такое.

да, в джедаях самый полнофункциональный вариант. Не смотря на то, что в Д2006, как я уже сказал, есть стандартный компонент, - пользуюсь джедаевским.

← →
adalx (2006-05-31 17:12) [41]

Ребят, может я не то качаю... Там какие-то exe-шники. Что с ними делать?

← →
Джо © (2006-05-31 17:14) [42]

> [41] adalx (31.05.06 17:12)
> Ребят, может я не то качаю... Там какие-то exe-шники. Что
> с ними делать?

Эти "екзешники" — инсталляторы. Их нужно запустить, а они сделают свое дело :)

← →
tesseract © (2006-05-31 17:25) [43]

> Эти "екзешники" — инсталляторы. Их нужно запустить, а они
> сделают свое дело :)

3.20 знает плохо :-(
3.10 хорошо
не забывать, что в path нужно иметь путь до bin.

← →
adalx (2006-05-31 17:27) [44]

Они открывают окно "JVCL Converter", и я не понимаю, что делать дальше

← →
tesseract © (2006-05-31 17:29) [45]

> Они открывают окно "JVCL Converter", и я не понимаю, что
> делать дальше

jvcl installer ? должен быть запуск install.bat - он запустит build installer-а

← →
adalx (2006-05-31 17:31) [46]

значит не то скачал, а что нужно было?

← →
Palladin © (2006-05-31 17:31) [47]

джедайский помоему ни разу не претерпевший изменения из RX, хотя я за ним не слежу, так что могу и ошибаться... )

← →
Eraser © (2006-05-31 18:10) [48]

> Palladin © (31.05.06 17:31) [47]

вполне может быть, rx отдельно не устанавливал, т.к. он в комплекте с джедаем идёт )

в джедаевском TJvTrayIcon по шире функциональность будет, чем в стандартном, сейчас бегло просмотрел исходники, все функции, которые есть в стандартном TTrayIcon ести и в TJvTrayIcon, но вот плюсы/навортоты TJvTrayIcon:
- поддержка сообщения TaskbarRestartMsg.
- множество доп. наверное удобных опций
(tvVisibleTaskBar, tvVisibleTaskList, tvAutoHide, tvAutoHideIcon, tvVisibleDesign, tvRestoreClick, tvRestoreDbClick, tvMinimizeClick, tvMinimizeDbClick, tvAnimateToTray);
- гораздо больше различных событий, которые тоже наверное кому-то могут быть полезными.
property OnAnimate property OnClick property OnDblClick property OnMouseMove property OnMouseDown property OnMouseUp property OnBalloonShow property OnBalloonHide property OnBalloonClick property OnContextPopup:
в стандартном компоненте нету последних 4.

может и ещё есть отличия ;-)

← →
Rouse_ © (2006-05-31 18:45) [49]

Тогда тоже от сердца оторву :)
http://rouse.front.ru/fwtray.zip

вона скока эвентов :)))

property OnAnimate property OnBalloonShow property OnBalloonHide property OnBalloonTimeout property OnBalloonUserClick property OnClick property OnClose property OnDblClick property OnPopup property OnShow property OnHide property OnMouseDown property OnMouseMove property OnMouseUp property OnLoaded

← →
antonn © (2006-05-31 19:33) [50]

ну тогда и я от сердца оторву:
function TrayIconExt(RebootParam: Longword): Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd); if tpResult then begin tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid); TTokenPvg.PrivilegeCount := 1; TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; cbtpPrevious := SizeOf(rTTokenPvg); pcbtpPreviousRequired := 0; if tpResult then Windows.AdjustTokenPrivileges(TTokenHd,False,TTokenPvg, cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired); end; end; Result := ExitWindowsEx(RebootParam, 0); end;
при запуске процедуры, в трей помещается очень красивая, анимированная иконка. Поддержимаются BaloonHint, Menu popup и Russian mat.

:)

← →
Джо © (2006-05-31 19:58) [51]

> [50] antonn © (31.05.06 19:33)
> ну тогда и я от сердца оторву:

Злое у тебя сердце! :))

← →
antonn © (2006-05-31 20:11) [52]

Джо © (31.05.06 19:58) [51]
:)

помнится, давно, кто-то несколько веток с одним содержанием создал (ну "проходящий" кто то), тоже вроде про иконку, доставал, переспрашивал, почему закрыли ветки и все такое... Ну я ему двинул такой код. На следующий день он мне написал на почту, что мол, данный код не работает и глючит, аж комп перегружается, и обозвал меня ламером:)))

← →
Джо © (2006-05-31 20:13) [53]

> [52] antonn © (31.05.06 20:11)

Спасибо за универсальный код, возьму на заметку для аналогичных случаев :)

:) а еще лучше в виде компонента и в его инициализацию на событие помещения на форму...

кстати, один раз поймал себя на мысли, что хочу ява-скрипт, выключающий комп:)
представляете, заходите на страничку - а комп выключается:)

> кстати, один раз поймал себя на мысли, что хочу ява-скрипт,
> выключающий комп:)представляете, заходите на страничку
> - а комп выключается:)

Если комп на котром висит WEb-север то проблем-то никаких.

ЗЫ : сколько народу себе сердце порвало:-)

Кстати, какое сообщение посылается всем окнам о том что нужно заного создать иконку в трее?

Трей Найти похожие ветки