Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > Рабочий стол
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.12.2011, 18:33
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
Вопрос Положение иконок раб. стола

Вот когда-то начал писать прогу наподобие статбара - она сидит себе снизу рабочего стола, показывает нагрузку проца, памяти, сетевой траффик и т.п.
Дело в том, сто при запуске она (оригинальный статбар) как-бы "поднимает" нижнюю часть десктопа так, что все окна по боттому теперь выше (тоесть он не перекрывает окна).
Само поднимание я организовал через:
Код:
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)
Заранее спасибо
прога
Ответить с цитированием
  #2  
Старый 21.12.2011, 09:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

используй форму как панель инструментов. тут обсуждали.
SHAppBarMessage
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
YVitaliy (24.12.2011)
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram