Главная страница
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.016 c
14-59872
Snap
2003-04-28 12:37
2003.05.19
Помогите, Линукс не ставится


3-59612
WD
2003-04-28 17:21
2003.05.19
Local database


14-59885
ZeroDivide
2003-04-28 17:01
2003.05.19
Кто нибудь писал софт для TV - Tuner на чипсете BT878?


1-59772
Avreliy
2003-05-06 15:43
2003.05.19
Из Делфи7 в Делфи4


6-59828
Shadow
2003-03-22 17:42
2003.05.19
WebBrowser