Ocultar ventanas en el escritorio

[delphi.com.ar]

¿Ocultar = Minimizar?
Puedes usar EnumWindows, o... prueba esto:

var
  hWnd: THandle;
begin
  hWnd := FindWindow('Shell_TrayWnd', nil);
  if hWnd <> 0 Then
    PostMessage(hWnd, WM_COMMAND, $001A3, 0);
end;

Saludos!