Скачать: CL | DM;

Панель задач   Найти похожие ветки 

← →
__ViC__   (2007-01-13 17:35) [0]

Здраствуйте, подскажите плз как можно из своей программы изменить свойство панели задач "отображать поверх всех окон", может есть и другой какой-нить способ, нужно для того что-бы развернуть окно своей программы на весь экран

зы спасибо за помощь

---

← →
ors_archangel ©   (2007-01-15 02:05) [1]

Менять параметры юзера - это зло, вместо того, чтобы делать панель задач "ниже" сделай своё окно "выше":

   ShowWindow(mainWnd, SW_MAXIMIZE);
   SetForegroundWindow(mainWnd);
   SetWindowPos(mainWnd,HWND_TOPMOST, 0,0,0,0, SWP_NOSIZE or SWP_NOMOVE);

Кстати, так можно поменять разрешение экрана, вдруг нужно:

function SetDisplayMode(w,h,bpp: integer): boolean;
var
mode: TDevMode;
begin
with mode do begin
 dmSize := sizeof(TDevMode);
 if bpp <> 0 then begin
  dmFields := DM_BITSPERPEL;
  dmBitsPerPel := bpp;
 end else
  dmFields := 0;
 if w <> 0 then begin
  dmFields := dmFields or DM_PELSWIDTH;
  dmPelsWidth := w;
 end;
 if h <> 0 then begin
  dmFields := dmFields or DM_PELSHEIGHT;
  dmPelsHeight := h;
 end;
end;
 result := (ChangeDisplaySettings(mode, 0) = DISP_CHANGE_SUCCESSFUL);
end;

а восстановить можно так ChangeDisplaySettings(nil, 0), правда с описанием в стандартном Windows.pas могут быть проблемы :(

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.094 c