说三道四 > 文档快照
HTML文档下载 WORD文档下载 PDF文档下载
procedure hideTaskbar; //隐藏
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0]
'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0]
nil);
ShowWindow(wndHandle
SW_HIDE);
End;
procedure showTaskbar; //显示
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0]
'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0]
nil);
ShowWindow(wndHandle
SW_RESTORE);
end;