Главная страница
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.01 c
1-59802
bkv
2003-05-07 10:21
2003.05.19
Мастера, обьясните что такое Visibroker и с чем его едят?


9-59528
anatol
2002-12-09 19:28
2003.05.19
Помогите найти исходники для карточной игры


11-59645
Igit
2002-08-13 05:36
2003.05.19
Я вот не понимаю...


6-59835
SLYplix
2003-03-20 16:06
2003.05.19
Как узнать состояние Интернет?


7-59964
Dr.Abolo
2003-03-22 17:10
2003.05.19
запрет клавиш