Transparenz bei DeskBars

[bobo220673]

Hallo!
Tolle Idee mit dem kopieren

Delphi-Quellcode:

procedure TfrmDeskBand.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;

hat jemand eine Idee wie das auf den IE7 anwendbar ist ?
Ich habe schon versucht das umzusetzen , klappt aber nicht