Вот когда-то начал писать прогу наподобие статбара - она сидит себе снизу рабочего стола, показывает нагрузку проца, памяти, сетевой траффик и т.п.
Дело в том, сто при запуске она (оригинальный статбар) как-бы "поднимает" нижнюю часть десктопа так, что все окна по боттому теперь выше (тоесть он не перекрывает окна).
Само поднимание я организовал через:
Код:
Procedure SetDesktopSize(const r:Trect);
begin
SystemParametersInfo(SPI_SETWORKAREA, 0, @r, 0);
end;
где r - размер новой рабочей области, а потом поднял все окна процедурой
Код:
Procedure upAllWindows(const bottom:integer; reject:hwnd=0);
var
Wnd:HWND;
rct:Trect;
newtop,newheight:integer;
begin
Wnd:=FindWindow(NIL,NIL);
While (Wnd<>0) do
Begin
if ((IsWindow(Wnd)) and (not IsIconic(WnD)) and
(IsWindowVisible(WnD))) and (Wnd<>reject) then
GetWindowRect(Wnd,Rct);
if (rct.Bottom>bottom)and
(rct.Bottom-rct.Top>10) and (not IsRectEmpty(rct)) and (iszoomed(wnd))
then begin
newtop:=rct.top-(rct.Bottom-bottom);
if newtop<0 then newtop:=0;
newheight:=bottom-newtop;
movewindow(wnd,rct.Left,newtop,rct.Right-rct.Left,newheight,false);
end;
Application.ProcessMessages;
Wnd:=GetNextWindow(Wnd,GW_HWNDNEXT);
end;
end;
Но проблема в том, что иконки на раб. столе не поднимаются. Мож кто подскажет как можно получить доступ к иконкам раб. стола, чтобы иметь возможность их поднимать/опускать, или, если есть, лучший вариант таковой реализации (желательно на WinApi и под WindowsXp-Windows7)
Заранее спасибо
прога