windows vista flip 3d año de lanzamiento

¿Cómo ingresar al modo Windows Flip 3D en Windows Vista y más?

Question

¿Es posible activar el Flip 3D mode en Windows Vista por encima de los sistemas mediante programación?



Es lo mismo que si presionas manualmente CTRL + WIN + TAB

Answer 1

El objeto Shell tiene el método WindowSwitcher que puede invocar este modo.

Aquí está el ejemplo del código Delphi:

uses
  ComObj;

procedure EnterWindowSwitcherMode;
var
  Shell: OleVariant;
begin
  try
    Shell := CreateOleObject(''Shell.Application'');
    Shell.WindowSwitcher;
  finally
    Shell := Unassigned;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Win32MajorVersion >= 6 then // are we at least on Windows Vista ?
  begin
    try
      EnterWindowSwitcherMode;
    except
      on E: Exception do
        ShowMessage(E.ClassName + '': '' + E.Message);
    end;
  end;
end;

Actualizar:

O como Norbert Willhelm mencionó aquí, también IShellDispatch5 interfaz de objeto IShellDispatch5 que de hecho introduce el método WindowSwitcher . Así que aquí hay otra versión de lo mismo ...

El siguiente fragmento de código requiere la unidad Shell32_TLB.pas, que puede crear en Delphi de esta manera (tenga en cuenta que debe tener al menos Windows Vista donde se utilizó la interfaz IShellDispatch5 la primera vez):

• ir al menú Componente / Importar componente
• continuar con la importación seleccionada de una biblioteca de tipos
• seleccione Microsoft Shell Controls And Automation y finalice el asistente

Y el código:

uses
  Shell32_TLB;

procedure EnterWindowSwitcherMode;
var
  // on Windows Vista and Windows 7 (at this time :)
  // is Shell declared as IShellDispatch5 object interface
  AShell: Shell;
begin
  try
    AShell := CoShell.Create;
    AShell.WindowSwitcher;
  finally
    AShell := nil;
  end;
end;