DWM API

[Gudzik11]

Подскажите как можно решить такую задачу.
Нужно форму заполнить фоном рабочего стола так чтоб при смене обоев и в форме тоже менялась картинка. Вот нагуглил такой пример с DWM API

var PH: PHTHUMBNAIL;
    Props: DWM_THUMBNAIL_PROPERTIES;
    ProgmanHandle: THandle;
begin
  ProgmanHandle:=0;
  ProgmanHandle:=FindWindow('Progman',nil);
  if ProgmanHandle>0 then
    begin
      if Succeeded(DwmRegisterThumbnail(Handle,ProgmanHandle,PH))then
         begin
           Props.dwFlags:=DWM_TNP_SOURCECLIENTAREAONLY or DWM_TNP_VISIBLE or
                          DWM_TNP_OPACITY or DWM_TNP_RECTDESTINATION;
           Props.fSourceClientAreaOnly:=false;
           Props.fVisible:=true;
           Props.opacity:=100;
           Props.rcDestination:=Form1.ClientRect;
           if Succeeded(DwmUpdateThumbnailProperties(PH^,Props))then
             ShowMessage('Thumbnail готов')
           else
             ShowMessage('DwmUpdateThumbnailProperties false');
         end
      else
        begin
          ShowMessage('DwmRegisterThumbnail False ');
        end;
    end;
end;

Скажите можно ли получать не весь рабочий стол а часть его к примеру только участок под формой и тут в примере видно что сверху изображения накладывается белый цвет с прозрачностью так вот можно его изменить на другой?

[саша40]

А просто прозрачную форму нельзя сделать?

[Gudzik11]

нет нужно чтоб фон был окрашен в полупрозрачный цвет