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ß