Скачать: CL | DM;

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

← →
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)

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

---

← →
Rouse_ ©   (2006-05-31 20:31) [54]

> antonn ©   (31.05.06 19:33) [50]

Плохая функция :) Если бы зафорсил принудительно - тогда бы была хорошая :)

---

← →
Palladin ©   (2006-05-31 20:35) [55]

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

---

← →
antonn ©   (2006-05-31 21:04) [56]

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

---

← →
tesseract ©   (2006-05-31 21:09) [57]

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

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

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

---

← →
vidiv ©   (2006-06-01 03:01) [58]

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

---

← →
antonn ©   (2006-06-01 08:17) [59]

vidiv ©   (01.06.06 3:01) [58]
http://delphimaster.net/view/1-1148564081/

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.56 MB
Время: 0.027 c