禁止/隐藏整条任务栏
procedure TForm1.Button1Click(Sender: TObject);
Var Wnd: THandle;
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
//用下面这一句实现隐藏
if Wnd <> 0 then ShowWindow(Wnd, SW_HIDE);
//用下面这一句实现禁止
if Wnd <> 0 then EnableWindow(Wnd, False);
end;
恢复正常必须用ShowWindow(Wnd, SW_SHOW)
和EnableWindow(Wnd, True)。
你的意思是这样的吗？但愿我没有误解。
