Das klappt schon, halt mit Tricks.
Einfach ein Stück der Taskbar in ein Bitmap kopieren und als Hintergrund verwenden.
zB. schaut das dann so aus:
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;
Ein Beispiel ? Siehe Anhang.