CJ 帮帮我吧！！！能给我一个圆满的答案么(100分)

我想通过程序把任务栏设置为自动隐藏，以下是原程序<br>不知是那里错了，总是不行。<br>&nbsp; <br>uses shellapi<br><br>var ABData : TAppBarData;<br>&nbsp; <br>begin<br>&nbsp; ABData.cbSize := Sizeof(ABData);<br>&nbsp; Abdata.hWnd:= FindWindow('Shell_TrayWnd', nil);<br>&nbsp; Abdata.uEdge:=ABE_BOTTOM ;<br>&nbsp; SHAppBarMessage(ABM_GETSTATE,Abdata);<br>&nbsp; ABData.uCallbackMessage:=0;<br>&nbsp; Abdata.lParam:=1;<br>&nbsp; SHAppBarMessage(ABM_SETAUTOHIDEBAR,Abdata);<br>&nbsp;<br>今年的所有这个问题解答我都看了没有让我满意的 帮帮忙吧

CJ或这各位帮助俺的朋友能否实验过以后再答呢 谢了

红色闪电、红色闪电 听到请回答。<br><br>“把任务栏设置为自动隐藏”<br>只要把下面代码添加到适当的位置调用一下就可以了。<br><br>procedure TForm1.HideTaskbar;<br>//隐藏任务栏<br>var<br>&nbsp; wndHandle:THandle;<br>&nbsp; wndClass:array[0..50] of Char;<br>begin<br>&nbsp; StrPCopy(@wndClass[0],'Shell_TrayWnd');<br>&nbsp; wndHandlw:=FindWindow((@wndClass[0],nil);<br>&nbsp; showWindow(wndHandlw,SW_HIDE);<br>end;<br><br>procedure TForm1.HideTaskbar;<br>//显示任务栏<br>var<br>&nbsp; wndHandle:THandle;<br>&nbsp; wndClass:array[0..50] of Char;<br>begin<br>&nbsp; StrPCopy(@wndClass[0],'Shell_TrayWnd');<br>&nbsp; wndHandlw:=FindWindow((@wndClass[0],nil);<br>&nbsp; showWindow(wndHandlw,SW_RESTORE); &nbsp;//就这一句不同<br>end;<br><br>&nbsp; <br>

小黄你太年青 不行呀 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 你实验过么？<br>实验过吧细节告诉我好么 我实验不行<br>这样好么 你做一个小EXE发给我可以么 ？<br>主要是让 那个自动隐藏选象打沟！ OK！万分感谢<br>yzgm@21cn.com &nbsp;

恐怕只有否定答案--没办法(API)。<br>需要提醒你注意的是，SHAppBarMessage是用来管appbar的，<br>管不了taskbar的属性--这两者并不等同，把taskbar的handle<br>传过去恐怕没用。

...<br>红老大别指名啊...<br>本来不想铁的，连名字都叫了，只好官一吧<br>俺试下来没什么好办法<br><br>你就SendMessage吧，把键直接发过去，呵呵...

好象没什么好办法，可以用Regmon.exe监视以下人工改此阐述，注册表有什么变化，<br>然后程序来模拟。 &nbsp;

红色闪电：<br>&nbsp; &nbsp; <br>&nbsp; &nbsp; .exe已发出，去收信。<br><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 年青的 小黄

111111111111111111！<br>&nbsp;气死我了 &nbsp;每人二十五分回家去养老吧！<br>&nbsp; <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;

多人接受答案了。