Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.19;
Скачать: CL | DM;

Вниз

Systen Tray Refresh - как это сделать?   Найти похожие ветки 

 
Smok_er   (2003-03-15 14:12) [0]

Собственно, сабж.
Нужно для того, чтобы после TerinateProcess убрать иконку приложения с трея.


 
Nimbus ©   (2003-03-17 17:44) [1]

Вот так:

const
ISize = 16;
var
x,y,TrW,TrH: Integer;
TbWnd: HWnd;
TrRect: TRect;
begin
TbWnd := FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd",nil),0,"TrayNotifyWnd",nil),0,"ToolbarWindow32",nil);
if GetClientRect(TbWnd,TrRect) then
begin
TrW := TrRect.Right - TrRect.Left;
TrH := TrRect.Bottom - TrRect.Top;
x := 1;
while x < TrW do
begin
y := 1;
while y < TrH do
begin
SendMessage(TbWnd,WM_MOUSEMOVE,0,x or (y shl 16));
inc(y,ISize);
end;
inc(x,ISize);
end;
end;
end.


 
Smok_er   (2003-03-18 17:33) [2]

Большое спасибо!
После отправки сообщения только заметил, как много ошибок сделал. Спешил просто очень.



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

Текущий архив: 2003.05.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
14-59938
Dim!S
2003-04-29 09:21
2003.05.19
Программирование для КПК


1-59647
zapmax
2003-05-05 12:59
2003.05.19
Перетягивание ветвей в TTreeView


9-59526
Plague
2002-12-12 18:05
2003.05.19
IDirect3DRM


3-59572
reticon
2003-04-27 19:53
2003.05.19
текстовые файлы в БД


14-59925
dbDev
2003-04-28 10:23
2003.05.19
Компоненты для доступа к dbf & db таблицам