掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タスクバーの[自動的に隠す]の状態を設定／解除 (ID:25014)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Windows2000,Delphi6です。 タスクバーの[自動的に隠す]の状態を設定／解除したいです。 Web検索したところ、ＶＢで以下のようなコードで（強引に？）実現しているようですが、何を行っているのか検討がつかず、悩んでいます。 Delphiではどのようにしたら良いのでしょうか。 アドバイスをお願いいたします。 ##http://cgi14.plala.or.jp/uz/ubbs/wforum.cgi?mode=allread&pastlog=0001&no=143&page=30&act=past Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim hWndTaskBar As Long hWndTaskBar = FindWindow("Shell_TrayWnd", vbNullString) Call SetForegroundWindow(hWndTaskBar) Call SendKeys("%~", True) While FindWindow(vbNullString, "タスク バーとスタート メニューのプロパティ") = 0 Wend Call Sleep(100) Call SendKeys("%u", True) Call Sleep(100) Call SendKeys("~", True) End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.