API - tamanho do iniciar

function TamanhoIniciar : Integer;

var

  Rc : TRect;

begin

  GetWindowRect( FindWindow( 'Shell_TrayWnd', nil ), Rc );

  Result := Rc.Bottom - Rc.Top;

end;