Move Desktop Taskbar

[colder]

Hallo,

hat jemand eine Idee wie ich die Taskbar moven kann.
SetWindowsPos und MoveWindow werden ignoriert.

Delphi-Quellcode:

var
  pabd: TAppBarData;
  storedrect: TRect;
begin
  pabd.cbsize           := SizeOf(TAppBarData);
  pabd.hwnd             := FindWindow('Shell_TrayWnd',nil);
  pabd.ucallbackmessage := 0;
  pabd.uEdge            := ABE_TOP;
  storedrect.Top        := 0;
  storedrect.Left       := 0;
  storedrect.Right      := 0;
  storedrect.Bottom     := 0;
  pabd.rc               := storedrect;
  SHAppBarMessage(ABM_GETTASKBARPOS, pabd);
  storedrect.Top        := -2;
  storedrect.Left       := pabd.rc.Left;
  storedrect.Right      := pabd.rc.Right;
  storedrect.Bottom     := pabd.rc.Bottom-pabd.rc.Top;
  SHAppBarMessage(ABM_SETPOS, pabd);
end;

gruss colder