Hallo,
hiermit kann man prüfen ob diese Option eingeschaltet ist. Kontextmenü der TaskBar, dann Automatisch im Hintergrund.
Delphi-Quellcode:
function ITBAHO: Boolean;
var
AppBarData: TAppBarData;
begin
AppBarData.cbSize := SizeOf(AppBarData);
Result := (SHAppBarMessage(ABM_GETSTATE, AppBarData) and ABS_AUTOHIDE) > 0;
end;
Aufrufen damit:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
if ITBAHO then
ShowMessage('Ein')
else
ShowMessage('Aus');
end;
Ach ja,
ITBAHO = IsTaskBarAutoHideOn, ein passenden Namen könnt Ihr Euch selbst ausdenken, mir war der zu lang, daher einfach nur die Anfangsbuchstaben.
Grüsse, Daniel
