Затемнение

← →
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

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