Merlin’s Delphi Forge

The easiest and fastest way to find out if the Windows taskbar’s auto hide feature is on is to use the Windows SHAppBarMessage() function. Here’s the Object Pascal code port:

uses ShellAPI;
…
function TaskbarAutoHide: Boolean;
var
ABData: TAppBarData;
begin
ABData.cbSize := SizeOf(ABData);
Result := ((SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0);
end;

You may have noticed that when many compression programs execute a file they wait until it is done to clean up the temporary files made. This can be done in both Windows 3.1x and, of course in Windows 32 bit. Here’s the code for Windows 16 bit:

uses
Wintypes, WinProcs, Toolhelp, Classes, Forms;
…
function [...]