AppBar problem

[citybreaker]

Hallo!

Habe eine AppBar erstellt. Allerdings können andere Programme die AppBar verdecken, was
eigentlich nicht der Fall sein sollte. Die Bar wird am rechten bildschirmrand angezeigt.

Hier der Code:

Code:

procedure TMainFrm.FormShow(Sender: TObject);
begin
  Data.cbSize := SizeOf(TAppBarData);;
  Data.hWnd := MainFrm.Handle;
  Data.uCallbackMessage := WM_APP;
  Data.uEdge := ABE_RIGHT;

  Data.rc.Left := 0;
  Data.rc.Top := 0;
  Data.rc.Right := screen.Width-100;
  Data.rc.Bottom := 0;

  if SHAppBarMessage(ABM_NEW, Data) = 0 then begin
    ShowMessage('AppBar konnte nicht registriert werden');
    exit;
   end;

  SHAppBarMessage(ABM_QUERYPOS, Data);
  SHAppBarMessage(ABM_SETPOS, Data);
  Application.ProcessMessages;
  MoveWindow(MainFrm.Handle,screen.Width-100,0,100,screen.Height,true);
end;