//隐藏任务栏
procedure TForm1.button1click(sender:Tobject);
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.button2click(sender:Tobject);
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;