IS THE TASKBAR ALLWAYS ON TOP?

// ******************************************************************
// IS THE TASKBAR ALLWAYS ON TOP?
// Category        : Task
// Author          : ZieglerSoft
// Author Email    :
// Author Web      : http://www.zieglersoft.dk/includes/usercount.asp
// Tips Website    : DelphiTips.com
// Tips Website URL: http://www.delphitips.com
// ******************************************************************

Uses
ShellApi;

Function IsTaksBarAllwaysOnTop:Boolean;
Var
AB : TAppBarData;
Begin
AB.cbSize := sizeof(AB);
Result :=(SHAppBarMessage(ABM_GETSTATE, AB)and ABS_ALWAYSONTOP) > 0;
End;