隐藏任务栏
var
taskbarhandle:HWND;
begin
taskbarhandle :=FindWindow(\'Shell_TrayWnd\',nil);
Showwindow(taskbarhandle,SW_HIDE)
end;
显示任务栏
var
taskbarhandle:HWND;
begin
taskbarhandle :=FindWindow(\'Shell_TrayWnd\',nil);
Showwindow(taskbarhandle,SW_RESTORE)
end;