Systray - saber como esta a barra de tarefas

Top  Previous  Next

uses ShellApi;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  AppBarData : TAppBarData;

  PosAppBar : Integer;

begin

  FillChar(AppBarData,Sizeof(TAppBarData),0);

  AppBarData.cbSize := sizeof(TAppBarData);

  PosAppBar := SHAppBarMessage(ABM_GETSTATE, AppBarData);

  if PosAppBar and ABS_AUTOHIDE    <> 0 then ShowMessage('AutoOcultar está ligado');

  if PosAppBar and ABS_ALWAYSONTOP <> 0 then ShowMessage('Sempre visível está ligado');

end;