Problem mit SHAppBarMessage

[Motzi]

Ganz so einfach ist es nicht..

du musst noch die Position mit ABM_SETPOS festlegen! Hier die Procedure die ich bei meinem X-Spy verwende:

Delphi-Quellcode:

procedure FillAppBarData(var aData: TAppBarData);
begin
  with aData do
  begin
    cbSize := SizeOf(TAppBarData);
    hWnd := MainForm.Handle;
    uCallbackMessage := WM_APPBAR;
    uEdge := ABE_TOP;
  end;
end;

procedure AddAppBar;
var
  aData: TAppBarData;
begin
  FillAppBarData(aData);
  SHAppBarMessage(ABM_NEW, aData);

  SystemParametersInfo(SPI_GETWORKAREA, 0, @aData.rc, 0);
  aData.rc.Bottom := aData.rc.Top + MainForm.Height;
  SHAppBarMessage(ABM_QUERYPOS, aData);
  SHAppBarMessage(ABM_SETPOS, aData);
  MainForm.aAppBarRect := aData.rc;
  MainForm.MoveToAppBarRect;
end;