ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как убрать значек в трее?
44 сообщений из 44, показаны все 2 страниц
  все  
Как убрать значек в трее?
    #33158576
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Вобщемто проблема от кривых рук, но как справится не знаю.
Моя прога запускает другую (программа сворачивается в трей и собирает логи) потом, через некоторое время, убивает ее, но значек остается. Все наверно видели такой баг, когда значек висит и если подвести к нему мышку убирается. Как побороть? Пока сделал чтобы сама программа кликала мышкой по тому месте и значек убирается, но работает не на всех системах...
Убивать пробовал по разному
1. CloseHandle(FSnapshotHandle);
2. SendMessage(FSnapshotHandle, WM_QUIT, 0, 0);
3. SendMessage(FSnapshotHandle, WM_CLOSE, 0, 0);
Результат идентичен.

Viman
...
Рейтинг: 0 / 0
11.07.2005, 08:13
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158597
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Shell_NotifyIcon + NIM_DELETE
...
Рейтинг: 0 / 0
11.07.2005, 08:47
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158606
amnch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
amnch
Участник
Попробуй

Refresh;
...
Рейтинг: 0 / 0
11.07.2005, 08:55
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158642
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
amnchПопробуй

Refresh;Refresh чего? Я закрываю чужую программу. Кроме ее хендла у меня ничего нет...
...
Рейтинг: 0 / 0
11.07.2005, 09:24
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158655
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Может ты не закрываешь, а принудительно абортируешь.
...
Рейтинг: 0 / 0
11.07.2005, 09:34
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158663
amnch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
amnch
Участник
viman
...
Моя прога запускает другую (программа сворачивается в трей и собирает логи) потом, через некоторое время, убивает ее, но значек остается.
...

сорри, недопонял условие, понял что твоя прога сворачивается в трей, а не та которую запускаешь
...
Рейтинг: 0 / 0
11.07.2005, 09:39
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158701
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Anatoly PodgoretskyМожет ты не закрываешь, а принудительно абортируешь.
принудительно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$ 0001 ;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result :=  0 ;

  FSnapshotHandle := CreateToolhelp32Snapshot
                     (TH32CS_SNAPPROCESS,  0 );
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32);

  while integer(ContinueLoop) <>  0  do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL( 0 ),
                        FProcessEntry32.th32ProcessID),  0 ));
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32);
  end;

//тут испытал  2  способа закрытия
 CloseHandle(FSnapshotHandle);
 SendMessage(FSnapshotHandle, WM_QUIT,  0 ,  0 );
 SendMessage(FSnapshotHandle, WM_CLOSE,  0 ,  0 );
end;

Попробовал Shell_NotifyIcon(NIM_DELETE, @tnid). Ничего не изменилось, хотя не факт что сделал правильно...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$ 0001 ;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  tnid:NOTIFYICONDATA;

begin
  result :=  0 ;

  FSnapshotHandle := CreateToolhelp32Snapshot
                     (TH32CS_SNAPPROCESS,  0 );
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32);

  while integer(ContinueLoop) <>  0  do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL( 0 ),
                        FProcessEntry32.th32ProcessID),  0 ));
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32);
  end;


    tnid.cbSize := sizeof(NOTIFYICONDATA);
    tnid.Wnd := FSnapshotHandle;
    tnid.uID :=  0 ;

    tnid.uFlags := NIF_ICON;
    tnid.uCallbackMessage :=  0 ;
    tnid.hIcon :=  0 ;
    Shell_NotifyIcon(NIM_DELETE, @tnid);

  SendMessage(FSnapshotHandle, WM_QUIT,  0 ,  0 );

end;
...
Рейтинг: 0 / 0
11.07.2005, 09:56
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158734
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Насилии над системой, ну нельзя же так издеваться
...
Рейтинг: 0 / 0
11.07.2005, 10:17
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158742
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
viman wrote:

> Refresh чего? Я закрываю *чужую* программу. Кроме ее хендла у меня
> ничего нет...

Похоже, не закрываешь, а убиваешь кирпичом по голове, раз иконка в трее
остаётся ;). Короче, эмулируй прохождение мыши над треем.
Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
11.07.2005, 10:21
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158751
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Anatoly PodgoretskyНасилии над системой, ну нельзя же так издеватьсяА как корректно выгрузить приложение чужое? Кроме хендла ничего нет...
...
Рейтинг: 0 / 0
11.07.2005, 10:22
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158756
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник


А ті сначала убивай значёк, а потом уже саму программу.

______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
11.07.2005, 10:24
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158768
zubbitto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zubbitto
Участник
viman[quot Anatoly Podgoretsky]Насилии над системой, ну нельзя же так издеватьсяА как корректно выгрузить приложение чужое? Кроме хендла ничего нет...[/quo]
А чужое приложение может выгрузить корректно лишь оно само
...
Рейтинг: 0 / 0
11.07.2005, 10:27
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158774
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Dim2000
viman wrote:

> Refresh чего? Я закрываю *чужую* программу. Кроме ее хендла у меня
> ничего нет...

Похоже, не закрываешь, а убиваешь кирпичом по голове, раз иконка в трее
остаётся ;). Короче, эмулируй прохождение мыши над треем.
Posted via ActualForum NNTP Server 1.2
эмулировал :) сначала просто мышкой провел, непомогло. потом еще и кликая при этом, заработало. значек убрался. запустил программу на серваке (у меня система xp sp2, на сервере w2000 server), значек не убирается... ну и фиг с ним, оставил на выходные так, сегодня пришел, там конечно мильон значков и панель задач уехала влево. то есть эмировалась ситация когда пользователь перенес панель задач снизу на левую сторону. о как...
поэтому сразу и написал что сделал КРИВО. :) Первый раз с такой проблемой столкнулся. Кому интересно могу исходник послать. Прога syslog с файрвола собирает.
...
Рейтинг: 0 / 0
11.07.2005, 10:29
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158777
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Jetus


А ті сначала убивай значёк, а потом уже саму программу.

______________________________
Never Surrender - Nothing Impossible!


Пробовал так, непомогло
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    tnid.cbSize := sizeof(NOTIFYICONDATA);
    tnid.Wnd := FSnapshotHandle;
    tnid.uID :=  0 ;

    tnid.uFlags := NIF_ICON;
    tnid.uCallbackMessage :=  0 ;
    tnid.hIcon :=  0 ;
    Shell_NotifyIcon(NIM_DELETE, @tnid);
...
Рейтинг: 0 / 0
11.07.2005, 10:30
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158784
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
vimanзапустил программу на серваке (у меня система xp sp2, на сервере w2000 server), значек не убирается... ну и фиг с ним, оставил на выходные так, сегодня пришел, там конечно мильон значков и панель задач уехала влево. то есть эмировалась ситация когда пользователь перенес панель задач снизу на левую сторону. о как...
Так ты еще не только хакер, а еще и террорист.
Кто тебя пустил на сервер?
Почему у вас такой бардак в фирме?
...
Рейтинг: 0 / 0
11.07.2005, 10:32
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158788
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник


Не знаю, может поможет:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Снять иконку соединения с интернет из Tray 

 uses  
  shellapi; 

 procedure  TForm1.Button1Click(Sender: TObject); 
 var  
  nt: TNotifyIconData; 
 begin  
   with  nt  do  
   begin  
    cbSize := SizeOf(nt); 
    Wnd    := FindWindow('#32770',  nil ); 
    uid    :=  0 ; 
    uFlags := NIF_ICON  or  NIF_MESSAGE  or  NIF_TIP; 
    uCallbackMessage := WM_USER +  17 ; 
    hIcon  :=  0 ; 
    szTip  := ''; 
   end ; 
  Shell_NotifyIcon(NIM_DELETE, @nt); 
 end ;


______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
11.07.2005, 10:33
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158791
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Anatoly Podgoretsky vimanзапустил программу на серваке (у меня система xp sp2, на сервере w2000 server), значек не убирается... ну и фиг с ним, оставил на выходные так, сегодня пришел, там конечно мильон значков и панель задач уехала влево. то есть эмировалась ситация когда пользователь перенес панель задач снизу на левую сторону. о как...
Так ты еще не только хакер, а еще и террорист.
Кто тебя пустил на сервер?
Почему у вас такой бардак в фирме?мой сервак, что хочу то и делаю :)
...
Рейтинг: 0 / 0
11.07.2005, 10:35
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158796
zubbitto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zubbitto
Участник
Есть мнение, что поможет перезагрузка, а может reset, сервак тоже утопить в сточной канаве
...
Рейтинг: 0 / 0
11.07.2005, 10:35
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158823
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
vimanмой сервак, что хочу то и делаю :)
Зеленое, прибито гвоздем с стене, что такое
А это моя селедка, что хочу то и делаю
...
Рейтинг: 0 / 0
11.07.2005, 10:41
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158840
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Jetus


Не знаю, может поможет:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Снять иконку соединения с интернет из Tray 

 uses  
  shellapi; 

 procedure  TForm1.Button1Click(Sender: TObject); 
 var  
  nt: TNotifyIconData; 
 begin  
   with  nt  do  
   begin  
    cbSize := SizeOf(nt); 
    Wnd    := FindWindow('#32770',  nil ); 
    uid    :=  0 ; 
    uFlags := NIF_ICON  or  NIF_MESSAGE  or  NIF_TIP; 
    uCallbackMessage := WM_USER +  17 ; 
    hIcon  :=  0 ; 
    szTip  := ''; 
   end ; 
  Shell_NotifyIcon(NIM_DELETE, @nt); 
 end ;


______________________________
Never Surrender - Nothing Impossible!

а можно поинтересоваться что за задачу так искали FindWindow('#32770', nil) ?
...
Рейтинг: 0 / 0
11.07.2005, 10:45
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158860
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
viman
а можно поинтересоваться что за задачу так искали FindWindow('#32770', nil) ?
Понятия не имею =)
...
Рейтинг: 0 / 0
11.07.2005, 10:49
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158867
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
FindWindow('#32770', nil) эта та программа которую и я убиваю... :) все заработало! А говорити телепатов тут нет. Пасиба тебе добрый самаритянин :)

Viman
...
Рейтинг: 0 / 0
11.07.2005, 10:51
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158874
Toking
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toking
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
tnid.cbSize := sizeof(NOTIFYICONDATA);
    tnid.Wnd := FSnapshotHandle;

  tnid.uID :=  0 ;  //не факт 

    tnid.uFlags := NIF_ICON;
    tnid.uCallbackMessage :=  0 ;
    tnid.hIcon :=  0 ;
    Shell_NotifyIcon(NIM_DELETE, @tnid)

Может в приложении устанавливается другой uID иконки.



_______________________________
нет ничего невозможного ... :-)
...
Рейтинг: 0 / 0
11.07.2005, 10:53
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158893
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
хотя нет, рано я обрадовался

Viman
...
Рейтинг: 0 / 0
11.07.2005, 10:57
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33158917
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
vimanFindWindow('#32770', nil) эта та программа которую и я убиваю... :) все заработало! А говорити телепатов тут нет. Пасиба тебе добрый самаритянин :)

На здоровье! =)
...
Рейтинг: 0 / 0
11.07.2005, 11:05
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #33159327
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
Ну что, больше предложений нет? Проблема осталась...

Viman
...
Рейтинг: 0 / 0
11.07.2005, 13:42
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как убрать значек в трее?
    #39767589
LastFornit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LastFornit
Гость
viman,

У меня паллиативное решение.
Не техническое, а, скорее, логическое.

Мы же когда запускаем свою программу, то точно знаем handle(Wnd) создаваемой нами же иконки в трее.
Значит, мы можем сохранить(например в реестр или в файл аппдаты) значение того самого хэндла.
Этого достаточно, чтоб при следеющем запуске программы мы сначала убили бы старую иконку, а уже только потом создали новую.
Т.е. другими словами, мы код из FormDestroy переносим/дублируем/вызываем при старте приложения, но со старым хэндлом.

Проверил на Винде 7 32-разрядной, всё работает.

Минусы:
1. Одна лишняя иконка в трее всё же будет висеть, т.к. убивается она только при новом запуске, а не при закрытии программы.
2. Если запущено несколько копий приложения, то нужно делать дополнительные проверки на handle.
3. Да и вообще много проверок: чтоб существовал такой хэндл; чтоб он не был равен другому новону хэндлу какого-нибудь другого процесса; чтоб в случае ошибки exception корректно обрабатывалась, а не валила программу при старте из-за такой мелочи...

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure TMainForm.InitTrayIcon;//процедура добавления иконки в трей
var TrayIconDataOld: TNotifyIconData;
begin

  try
  if GetHandleOld <> 0 then //GetHandleOld(пишем сами под себя)  - получаем хэндл, сохранённый в прошлый раз
    begin
      with TrayIconDataOld do//
      begin
        cbSize:= SizeOf(TrayIconDataOld);
        Wnd:= GetHandleOld;  //GetHandleOld  - получаем и присваиваем хэндл, сохранённый в прошлый запуск прграммы
        uID:= 0;
        uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
        uCallbackMessage:= WM_ICONTRAY;
        hIcon:= Application.Icon.Handle;
        szTip:= 'Имя моей программы или имя твоей мамы';
      end;
      Shell_NotifyIcon(NIM_DELETE, @TrayIconDataOld);//удаляем старую иконку из трея(этот код у меня в FormDestroy)
    end;
  except
  end;

  with TrayIconData do //а тут мы создаём новую иконку
  begin
    cbSize:= SizeOf(TrayIconData);
    Wnd:= Handle;     //здесь Handle = Self.Handle на форме.
    uID:= 0;
    uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage:= WM_ICONTRAY;
    hIcon:= Application.Icon.Handle;
    szTip:= 'Имя моей программы или имя твоей мамы';
  end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);//добавляем новую иконку

  SetHandleOld(Handle);//и сохраняем Handle куда-нибудь

end;
...
Рейтинг: 0 / 0
31.01.2019, 13:55
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39767666
LastFornit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LastFornit
Гость
viman,

я только что дату посмотрел. Боже, чувак, надеюсь, что ты ещё жив.
...
Рейтинг: 0 / 0
31.01.2019, 15:25
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39871939
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
LastFornit,

ахренеть :) проблему кстати решил... 14 лет назад )
...
Рейтинг: 0 / 0
04.10.2019, 23:24
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39871994
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
vimanLastFornit,
ахренеть :) проблему кстати решил... 14 лет назад )
Ну так распиши, как решил? Для потомков.
А то как в анекдоте: все посылают в гугл, а там только ссылки на посты, в которых посылают в гугл...
...
Рейтинг: 0 / 0
05.10.2019, 10:08
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39871996
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Офигеть, viman, оказывается, еще "живой".
...
Рейтинг: 0 / 0
05.10.2019, 10:20
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39871998
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
alekcvpvimanLastFornit,
ахренеть :) проблему кстати решил... 14 лет назад )
Ну так распиши, как решил? Для потомков.
А то как в анекдоте: все посылают в гугл, а там только ссылки на посты, в которых посылают в гугл...

прицепил файл, подпилено мной сто лет тому для работы в x64 системах. Оригинал для x86 с сайта Rouse был взят, не помню уже.
На Вин7 и ниже работает, выше - не проверял, но по идее тоже должно работать.

Проверяет все иконки, те, что зомби - пристреливает.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure Kill_empty_tray_icons;
var
  SysTray: TFWSysTrayInfo;
begin
  SysTray := TFWSysTrayInfo.Create;
  SysTray.UpdateInfo;
  if SysTray.HaveIncorrectIcons then
   SysTray.UpdateAllIcons;
  SysTray.DisposeOf;
end;
...
Рейтинг: 0 / 0
05.10.2019, 10:30
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872188
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
alekcvp,

вот весь код программы, может кому пригодится. Я выложил в опенсорс
https://sysadminblog.ru/soft/2010/12/08/monitoring-setevyh-resursov---shareview.html
https://github.com/zheltovanton/shareview
...
Рейтинг: 0 / 0
06.10.2019, 13:59
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872190
Фотография viman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viman
Участник
а хотя, почитал что за проблема была, не помню даже победил ее или нет :) в любом случае, эти проекты давно ушли в историю...
...
Рейтинг: 0 / 0
06.10.2019, 14:04
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872234
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Vizit0r
Код: pascal
1.
 TFWSysTrayInfo;



мне интересно, когда Delphi научится находить модули для Uses
...
Рейтинг: 0 / 0
06.10.2019, 17:36
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872388
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
имя юнита не равно имени класса.
Что тебя так удивило-то?
...
Рейтинг: 0 / 0
07.10.2019, 07:29
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872427
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Vizit0rимя юнита не равно имени класса.
Что тебя так удивило-то?
Я так понимаю он хочет чтобы среда ему по имени класса искала юнит, в котором он объявлен.
...
Рейтинг: 0 / 0
07.10.2019, 10:27
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872430
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
оказывается, в Дельфах надо прописывать имя юнита.
Вот это поворот!

P.S. Потому что не надо привыкать к авто-подкидываю юнитов от визуальных компонентов. Ручками, все ручками.
...
Рейтинг: 0 / 0
07.10.2019, 10:30
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872437
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
X11мне интересно, когда Delphi научится находить модули для Uses
Когда это разучится делать гугл
...
Рейтинг: 0 / 0
07.10.2019, 10:37
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872475
Belotsky Serge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belotsky Serge
Гость
X11Vizit0r
Код: pascal
1.
 TFWSysTrayInfo;



мне интересно, когда Delphi научится находить модули для Uses

А зажать Ctrl + клик по 'TFWSysTrayInfo', уже не работает? У меня в XE3 работает, открывает вкладку окна с кодом юнита.
...
Рейтинг: 0 / 0
07.10.2019, 12:10
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872528
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Belotsky SergeX11пропущено...
мне интересно, когда Delphi научится находить модули для Uses
А зажать Ctrl + клик по 'TFWSysTrayInfo', уже не работает? У меня в XE3 работает, открывает вкладку окна с кодом юнита.
Даже если нужного юнита нет в uses модуля? Серьёзно?
...
Рейтинг: 0 / 0
07.10.2019, 13:12
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872582
Belotsky Serge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belotsky Serge
Гость
alekcvpBelotsky Sergeпропущено...

А зажать Ctrl + клик по 'TFWSysTrayInfo', уже не работает? У меня в XE3 работает, открывает вкладку окна с кодом юнита.
Даже если нужного юнита нет в uses модуля? Серьёзно?

На этот случай есть Ctrl+F1. :) Дальше Copy-Paste. Но это довольно редко приходится делать, в основном для невизуальных компонентов и для dll.
...
Рейтинг: 0 / 0
07.10.2019, 14:04
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872615
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Vizit0r. Потому что не надо привыкать к авто-подкидываю юнитов от визуальных компонентов. Ручками, все ручками.Потому, что нужно писать нормальные IDE
X11мне интересно, когда Delphi научится находить модули для UsesТут рекламировали плагин для IDEA - пробуй
...
Рейтинг: 0 / 0
07.10.2019, 14:37
| Ответить | Цитировать | Написать  
Как убрать значек в трее?
    #39872654
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
_Vasilisk_Потому, что нужно писать нормальные IDE
со встроенным ИИ?
...
Рейтинг: 0 / 0
07.10.2019, 15:13
| Ответить | Цитировать | Написать  
44 сообщений из 44, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как убрать значек в трее?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2038977]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 173ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 79ms
get tp. blocked users:
 2ms
others: 239ms
total:  537ms
созд. / загр.: 537ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]