taskbar (2000年12月29日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 27 行

Taskbar (2000年12月29日) 

网友更新  分类:Win API   作者: maming(推荐)  推荐:maming   阅读次数:357  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure tform1.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 tform1.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;