Рисование на рабочем столе под иконками

[DJDrugsounD]

Доброго времени суток! Народ, помогите пожалуйста, целый день бороздил гугл в поисках нужной инфы, и результата ноль...

Моя цель: выводить графику вместо обоев рабочего стола под иконками, в моём случае графика рисуется средствами OpenGL

варианты:

function GetDesktopListViewHandle: THandle;
var
  S: String;
begin
  Result := FindWindow('ProgMan', nil);
  Result := GetWindow(Result, GW_CHILD);
  Result := GetWindow(Result, GW_CHILD);
  SetLength(S, 40);
  GetClassName(Result, PChar(S), 39);
  if PChar(S) <> 'SysListView32' then Result := 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  dc: HDC;
begin
  dc := GetDC (GetDesktopListViewHandle);
  Rectangle (dc, 10, 10, 110, 110);
  ReleaseDC (Handle, dc);
  DeleteDC (DC);
end;

и их подобные нужного результата не дают, рисуется поверх иконок

оверлей тоже не катит, так как на Win7 он работает только тогда когда выбран упрощённый стиль, и то с ужасными артефактами в области иконок.

Есть ли ещё рабочие варианты как это можно сделать? или придётся рисовать уже собственный рабочий стол и лепить его поверх стандартного

[northener]

Лучше бы рисовать уже собственный рабочий стол взамен (а не поверх) стандартного.

[Rin]

Ох, попробуй поискать рисование на рабочем столе средствами DirectX. Либо на этом форуме я это видел, либо на gamedav'e. Там говорилось, что за рабочий стол отвечают 2 объекта. Имена этих объектов тебе как раз и нужны. А дальше чуть изменить код, написанный тобой.

[DJDrugsounD]

Сообщение от northener

Лучше бы рисовать уже собственный рабочий стол взамен (а не поверх) стандартного.

для этого придётся делать точную копию стандартного, думаю геморно

[DJDrugsounD]

нашёл вот такой вот вариант ещё:

Как добраться до Оверлея базовыми средствами понятно:
Добираемся до SysListView32 на рабочем столе далее установить хук ловим WM_PAINT и рисуем. Тут все Ок! под иконками все рисуется.

с хуками опыта нет, буду разбираться :D

[Stilet]

Тут все Ок!

Бабушка надвое сказала...

[DJDrugsounD]

Сообщение от Stilet

Бабушка надвое сказала...

думаете не будет работать?