Форум: "Система";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];
Вниз
Как программно перерисовать всё содержимое SysTray Найти похожие ветки
← →
Nimbus (2002-07-11 00:08) [0]Подскажите, plz, кто сталкивался с данной проблемой -
убиваю чужую прогу, а иконка от неё остаётся в Tray, пока над ней не появится указатель мыши (как сделать Refresh или что-то типа этого всей области SysTray сразу после "убийства проги").
Заранее благодарю.
← →
paul_shmakov (2002-07-12 13:19) [1]так можно симулировать движение мышки :) вот только что попробовал под w2k.
program refresh;
uses Windows, Messages;
procedure RefreshTray;
const
IconSize = 16;
var
TrayWnd: HWnd;
TrayNotifyWnd: HWnd;
ToolbarWnd: HWnd;
X, Y, TrayWidth, TrayHeight: Integer;
TrayRect: TRect;
begin
TrayWnd := FindWindow("Shell_TrayWnd", nil);
if TrayWnd <> 0 then
begin
TrayNotifyWnd := FindWindowEx(TrayWnd, 0, "TrayNotifyWnd", nil);
if TrayNotifyWnd <> 0 then
begin
ToolbarWnd := FindWindowEx(TrayNotifyWnd, 0, "ToolbarWindow32", nil);
if ToolbarWnd <> 0 then
begin
if GetClientRect(ToolbarWnd, TrayRect) then
begin
TrayWidth := TrayRect.Right - TrayRect.Left;
TrayHeight := TrayRect.Bottom - TrayRect.Top;
X := 1;
while X < TrayWidth do
begin
Y := 1;
while Y < TrayHeight do
begin
SendMessage(ToolbarWnd, WM_MOUSEMOVE, 0, X or (Y shl 16));
Inc(Y, IconSize);
end;
Inc(X, IconSize);
end;
end;
end;
end;
end;
end;
begin
RefreshTray;
end.
← →
Nimbus (2002-07-16 14:16) [2]Спасибо огромное! Работает на 100%! Если что - в долгу не останусь. :-)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
