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;