1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure TForm1.FormPaint(Sender: TObject);
var
  wnd: HWND;
begin
  Form1.ClientHeight := TaskbarHight - 9;
  wnd :=  FindWindow('Shell_TrayWnd', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ReBarWindow32', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ToolbarWindow32', 'toolbar');

  if wnd <> 0 then
  begin
    Form1.ParentWindow := wnd;
    SetWindowPos(wnd,HWND_TOP,0,0,10,10,SWP_SHOWWINDOW); // irgendwelche testwerte
  end;
end;