Eigenes DeskBand erstellen

[Diamondback2007]

also das tutoial gibts hier

der code ist folgender:

Delphi-Quellcode:

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

es hat auch einmal funktioniert...danach nie wieder...
nun es gibt wohl bei einigen usern das problem, dass der
explorer beim registrieren der dll abstürtzt...
das war bei mir nicht so....
jetzt schon...ich weiß nicht was ich falsch mache,
aber nun kann die die deskabr nicht mehr registrieren...

gruß