隐藏任务栏

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;