屏蔽任务栏:
ShowWindow(FindWindow('Shell_TrayWnd',nil ), SW_HIDE);
恢复显示:
ShowWindow(FindWindow('Shell_TrayWnd',nil ), SW_SHOW);
please try!
ShowWindow(FindWindow('Shell_TrayWnd',nil ), SW_HIDE);
恢复显示:
ShowWindow(FindWindow('Shell_TrayWnd',nil ), SW_SHOW);
please try!
解决方案 »
- 知道一个窗体的名称,如何获得他的TFormClass?
- 帮忙messagedlg('发送失败!',mterror,[mbyes],0)
- 有相关delphi2007的中文资料没有?
- Delphi基础
- 关于系统托盘问题
- 第一次用FastReport请教:FastReport生成的报表如何实现预览和打印?
- 关于“A dynamic link library initialization routine failed”和“activeX component cann't create object”的问题(内详)
- 谁有没有关于串口方面 的资料。如串口方面的组件等!高分相送
- 哪位大虾能写的出告警信息屏蔽的代码 我是菜鸟 在线等 急~~~~~~~~
- 关于显示的一个问题
- 有哪个高手敢到http://www.csdn.net/expert/topic/359/359613.shtm ?
- 如何遍历treeview并修改个节点的值
function IsTaskbarAutoHideOn : Boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := SizeOf (ABData);
result := (SHAppBarMessage (ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0
end;procedure Tfrm_Main.Button31Click(Sender: TObject);
begin
if IsTaskbarAutoHideOn then
begin
showmessage('任务栏是自动隐藏的哦!');
end else
showmessage('任务栏不是自动隐藏的哦!');
end;但是设置的我没有做过
应该是采取SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData);方式
注意先填充ABData的cbSize/hWnd/uEdge/lParam/
ABM_GETSTATE获得状态,ABM_SETAUTOHIDEBAR设置
eg;//记得吧ShellAPI包含进来var
pabd:TAppBarData;
SysTrayHandle:THandle;
rValue:Integer;
begin
SysTrayHandle:=FindWindow('Shell_TrayWnd',nil );
with pabd do
Begin
cbSize:=SizeOf(pabd);
hWnd:=SysTrayHandle;
uCallbackMessage:=0;
uEdge:=ABE_BOTTOM;
lParam:=1;//0 means register
End;
rValue:=SHAppBarMessage(ABM_GETSTATE,pabd);
ShowMessage('Status='+IntToStr(rValue));
//2 means normal,3 means autohideend;
我用C++ builder试过,Delphi我想也是一样。请问有哪一位试成功过的呢?