30

那还不简单?var
  hwnd:Thandle;
begin
  hwnd:=findwindow('progman',nil);
  showwindow(hwnd,sw_hide)  //隐藏桌面图标  showwindow(hwnd,sw_show) 为显示。  hwnd:=findwindow('shell_traywnd',nil);  //得到任务栏句柄
  showwindow(hwnd,sw_hide)           //隐藏任务栏,showwindow(hwnd_show) 为显示end;