Получить HWND рабочего стола без иконок

[Son]

Доброго времени суток. Проблема такого рода: можно ли получить HWND рабочего стола, но только той области, где размещаются обои? Чтоб нарисовать например рисунок на рабочем столе, но он бы был под ярлыками.
Такой код:

var  DescHWND: HWND;
...
DescHWND := FindWindow('ProgMan', nil);

возвращает (в Delphi) хендел на весь рабочий стол вместе с иконками.
Заранее благодарен

[BaronTreep]

Не так просто как кажется. Вот метод с использованием оверлеев DirectX:

http://delphimaster.ru/articles/directx/index.html

[Stilet]

Не так просто как кажется

Не так сложно как ты думаешь )

   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;

[BaronTreep]

Stilet! Подскажи пожалуйста, почему это неработает (рисует поверх):

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;

[Stilet]

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