タスクバーの設定を取得する

ここではタスクバーの「常に手前で表示」と「自動的に隠す」の設定を取得します。

■使用するAPI関数

■その他

■ソースは下記のようになります。

■タスクバーの設定を取得する
procedure TForm1.Button1Click(Sender: TObject);
Var
　AD　　 : TAPPBARDATA ;
　Buffer : Integer;
begin

　AD.cbSize := Sizeof(AD);

　//タスクバーのオプション状態を取得
　Buffer := SHAppBarMessage(ABM_GETSTATE,AD);

　If (Buffer And ABS_AUTOHIDE)=1 Then
　　ShowMessage('[自動的に隠す]は選択されています。')
　else
　　ShowMessage('[自動的に隠す]は選択されていません。');

　If (Buffer And ABS_ALWAYSONTOP)=2 Then
　　ShowMessage('[常に手前に表示]は選択されています。')
　else
　　ShowMessage('[常に手前に表示は選択されていません。');
end；





Win32 APIのページへ