Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: 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 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
9-1131554360
2Wish
2005-11-09 19:39
2007.03.04
Изометрия


15-1170867051
schooler
2007-02-07 19:50
2007.03.04
Зацените, пжл


6-1158733101
mat99
2006-09-20 10:18
2007.03.04
обработка mailto в delphi


1-1168412671
zsv
2007-01-10 10:04
2007.03.04
Большие массивы


2-1171538984
_Inkognito_
2007-02-15 14:29
2007.03.04
БД И ДЕЛФИ