Detektere resize af taskbar

uses ShellAPI;

var
  LastHeight: Integer = 0;
  LastWidth:  Integer = 0;

function DidTaskbarResize: Boolean;
var
  AppBar: TAppBarData;
begin
  Result := False;
  FillChar(AppBar, SizeOf(TAppBarData), 0);
  AppBar.cbSize := SizeOf(TAppBarData);

  if SHAppBarMessage(ABM_GETTASKBARPOS, AppBar) = 0 then Exit;

  if (LastHeight=0) then LastHeight := AppBar.rc.Bottom-AppBar.rc.Top;
  if (LastWidth=0) then LastWidth := AppBar.rc.Right-AppBar.rc.Left;

  Result := not ((LastHeight=AppBar.rc.Bottom-AppBar.rc.Top)
            and (LastWidth=AppBar.rc.Right-AppBar.rc.Left));

  LastHeight := AppBar.rc.Bottom-AppBar.rc.Top;
  LastWidth  := AppBar.rc.Right-AppBar.rc.Left;
end;

procedure TMainForm.CheckTimerTimer(Sender: TObject);
begin
  if (DidTaskbarResize) then
    Log.Lines.Add('Taskbar resized!');
end;