~~~~~~~~~~~~~~~~~~~~~~~~~
uses ShellAPI;
(*
Returns TRUE if taskbar auto hide is on.
if IsTaskBarautoHideOn then
begin
// auto hide is ON
end;
*)
function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData) ;
Result :=
(SHAppBarMessage(ABM_GETSTATE, ABData)
and ABS_AUTOHIDE) > 0;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to play sounds on the PC Speaker
« Delphi String to Enum
