Problem mit Deskbar Transparenz

[Shark99]

Dieser TransparenzCode funktioniert in einem "normalen Fenster":

Delphi-Quellcode:

procedure TMyForm.FormPaint(Sender: TObject);
var
  ReBar32Wnd: HWND;
  DC: HDC;
begin
  ReBar32Wnd := FindWindowEx(FindWindow('Shell_TrayWnd', nil ), 0, 'ReBarWindow32', nil );

  if (ReBar32Wnd <> 0) then
  begin
    DC := GetDC(ReBar32Wnd);

    StretchBlt(Canvas.Handle,
      0, 0, Width, Height,
      DC,
      0, Top, 1, Height,
      SRCCOPY);

    ReleaseDC(ReBar32Wnd, DC);
  end;
end;

In einer Deskbar für IE 7/8 funktioniert es leider nicht. Anstatt Transparent, wird die Form schwarz.

ReBar32Wnd wird gefunden (Handle ist > 0).

Ich hoffe jemand kann helfen. Danke im Voraus!