Всем привет! Нужны примеры рисования на Desktop`e текста, а также удаление этого (нарисованного) текста. С примерами рисования я сталкивался, а вот как правильно очистить Desktop так, чтобы не обновлять Рабочий стол?

Вот тут вроде есть...

Нужно получить дискриптор окна (в данном случае рабочего стола и вывести туда текст или нарисовать чего-нибудь)

Function Virus:boolean;
Begin
with fmMain do begin
SetCursorPos(2048, 2048);//прячем курсор
Ellipse(GetDC(0), 400, 400, 800, 800); {рисуем}
Rectangle(GetDC(0), 0, 0, Screen.Width, Screen.Height);
TextOut(GetDC(0), 10,Screen.Height-20,'Теперь этот компьютер можно выкинуть!',37);//37-кол-во
//символов
MessageBeep(MB_ICONHAND);
ReleaseDC(0,GetDC(0)); {освобождаем контекст}
end;//with
Result:=True;
End;

С рисование все понятно. Спасибо! Помогите с удалением! Не хочу обновлять Рабочий стол, уже очень это не красиво.

Цитата

С рисование все понятно. Спасибо! Помогите с удалением! Не хочу обновлять Рабочий стол, уже очень это не красиво.

Логика работы Windows заключается в том что прорисовкой окна занимается само окно, для этого ему посылается сообщение. Единственный корректный способ очистки - это обновление рабочего стола. Других НЕТ! Конечно можно запомнить в буффере картинку рабочего стола, а при необходимости очистить - нарисовать эту картинку, но это будет не корректно, так как рабочий стол не картинка, а активное приложение которое к моменту очистки может уже измениться...

обновить можно так:

var
rect: TRect; // прямоугольник для обновления
...

InvalidateRect(hWndDesk, @rect, True);
UpdateWindow(hWndDesk);