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

Вниз

Затемнение   Найти похожие ветки 

← →
Klopan ©   (2004-12-10 13:41) [0]

Как можно затемнить экран? (в WinXP когда жмем выключение - появляется диалог и затемняется экран, т.е даже незатемняется, а плавно переходит в чб режим).

---

← →
clickmaker ©   (2004-12-10 18:45) [1]

function EnumWindowsProc(Wnd: HWND, lParam: Longint); longbool; stdcall;
begin
if (wnd != 0) then begin

 EnableWindow(wnd, lParam);
 result := TRUE;
end;
return FALSE;
end;

procedure DisableAllWindows(bDisable: boolean);
var
 hbmbr, bmp, oldbmp: HBITMAP;
 Brush: HBRUSH;
 cx, cy: integer;
 dc, MemDC: HDC;
 r: TRect;
begin
EnumWindows(EnumWindowsProc, not bDisable);
if (bDisable) then begin

 hbmbr := LoadBitmap(hInstance, MAKEINTRESOURCE(IDB_DESK_BRUSH)); // нарисуй сам на свой вкус
 Brush := CreatePatternBrush(hbmbr);
 cx := GetSystemMetrics(SM_CXSCREEN);
 cy := GetSystemMetrics(SM_CYSCREEN);
 dc := GetDC(0);
 hMemDC := CreateCompatibleDC(dc);
 Bmp := CreateBitmap(cx, cy, 1, 1, NULL);
 OldBmp := SelectObject(MemDC, Bmp);
 r.left := 0; r.top := 0; r.right := cx; r.bottom := cy;
 FillRect(MemDC, r, Brush);
 BitBlt(dc, 0, 0, cx, cy, MemDC, 0, 0, SRCAND);
 DeleteObject(hBrush);
 DeleteObject(SelectObject(MemDC, OldBmp));
 DeleteDC(MemDC);
 ReleaseDC(0, dc);
 SendMessage(FindWindow("Shell_TrayWnd", nil), WM_SETREDRAW, 0, 0);
end else
begin
 
 SendMessage(FindWindow("Shell_TrayWnd", nil), WM_SETREDRAW, 1, 0);
 RedrawWindow(HWND_DESKTOP, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN);
end;
end;

---

← →
GanibalLector ©   (2004-12-10 20:25) [2]

> function EnumWindowsProc(Wnd: HWND, lParam: Longint);
>longbool; stdcall;
>begin
>if (wnd != 0) then begin
>
> EnableWindow(wnd, lParam);
> result := TRUE;
>end;
>return FALSE;
> end;

А Вы случаем не ошибаетесь???
З.Ы.Это больше на Ся похоже.

---

← →
dr Tr0jan   (2004-12-11 14:55) [3]

Это новый язык: DelCi

---

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

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

Наверх

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