Проблемка ...

[AT8675309]

Как сделать подмену фонового рисунка рабочего стола, чтобы не было моргания ?

[Ennor]

Во всех случаях, когда хочешь избежать моргания при перерисовке, используй SendMessage() с оконным сообщением WM_SETREDRAW. При этом для запрета перерисовки в параметр wParam суешь 0, а для разрешения - 1. Правда, я иногда сталкивался с тем, что некоторые контролы игнорируют это сообщение - TreeView, например...

[tyomitch]

Ещё есть онтопичная функция - LockWindowUpdate, запрещает рассылку окну валидных hDC в WM_PAINT.

[AT8675309]

Спасибо !
Очень ПОЛЕЗНОЙ много информации, никогда столько ПОЛЕЗНОЙ не получал(Очеь часто получал бесполезную).
Ещё раз спасибо !


tyomitch:
Может и не сработает для "Desktop" ...

[AT8675309]

После unlock, продолжают моргать иконки значков и всё, что находится на desktop.

[Ennor]

Так. А теперь будь добр, опиши, что именно ты хочешь сделать. Например, с какой частотой ты осуществляешь эту операцию подмены

[AT8675309]

Хм. Хм.
Я вот задумался: "А можно ли рисовать на рабочем столе ?". Итогда все проблемы с морганием закончутся. Так как ?

А с какой частотой надо(Прежде я выводил с частотой по специальной формуле "Как попало" ) ?

Или в DirectDraw 7 я видел процедуру WaitTillOk, может и в этом случае можно подождать, и когда луч будет переходить с право-нижнего конца в лево-верхний, начать таки менять заставку ...

[tyomitch]

На рабочем столе - запросто! GetWindowDC(GetDesktopWindow), и вперёд!
Вот пример:

Код: Выделить всё

Option Explicit
Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function FrameRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Sub Main()
Dim hWnd As Long, hDC As Long, hBrush As Long, rc As RECT
    hWnd = GetDesktopWindow
    hDC = GetWindowDC(hWnd)
    SetRect rc, 100, 100, 500, 500
    hBrush = CreateSolidBrush(vbRed)
    FillRect hDC, rc, hBrush
    DeleteObject hBrush
    hBrush = CreateSolidBrush(vbBlack)
    FrameRect hDC, rc, hBrush
    DeleteObject hBrush
    ReleaseDC hWnd, hDC
End Sub