Fórum Como saber se a barra do INICIAR está ativa? #355834

unit ShellAPI;

TTaskBarPositions = (tbpHidden = 0,
                     tbpLeft   = 1,
                     tbpRight  = 2,
                     tbpTop    = 3,
                     tbpBotton = 4);

function TaskBarPosition(Var vRect: TRect): TTaskBarPositions;
Var ABData: TAppBarData;
begin
   try
      if (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) <= 0 then
      begin
         case ABData.uEdge of
            ABE_LEFT  : Result := tbpLeft;
            ABE_TOP   : Result := tbpTop;
            ABE_RIGHT : Result := tbpRight;
            ABE_BOTTOM: Result := tbpBotton;
         end;
      end
      else
      begin
         Result := tbpHidden;
         Exit;
      end;

      FillChar(ABData, SizeOf(TAppBarData), 0);
      ABData.cbSize := SizeOf(TAppBarData);

      SHAppBarMessage(ABM_GETTASKBARPOS, ABData);
      vRect := ABData.rc;
   except
   end;
end;