Windows 8

[himitsu]

Zitat von Luckie:

Ein erster einfacher Ansatz: http://www.michael-puff.de/Programmi...hDesktop.shtml

Dein Code funktioniert zwar, aber nur in dem Testprogramm.

Füge ihn mal in eine normale Anwendung ein und starte diese Prozedur über einen Button.

Verwende aber besser diese Variante, denn bei deiner wirst du nicht froh werden.

Delphi-Quellcode:

procedure BaitAndSwitchDesktop;
var
  OldDesk, NewDesk: HDESK;
begin
  OldDesk := GetThreadDesktop(GetCurrentThreadID);
  NewDesk := CreateDesktop(PChar('Foobar'), nil, nil, 0, DESKTOP_CREATEWINDOW or
    DESKTOP_SWITCHDESKTOP or DESKTOP_CREATEMENU, nil);
  if NewDesk <> 0 then
  begin
    try
      if SetThreadDesktop(NewDesk) and SwitchDesktop(NewDesk) then
        MessageBox(0, 'Here I am', 'Foobar Desktop', MB_ICONINFORMATION)
      else
        RaiseLastOSError;
    finally
      SwitchDesktop(OldDesk);
      SetThreadDesktop(OldDesk);
      CloseDesktop(NewDesk);
    end;
  end else
    RaiseLastOSError;
end;

Erstmal sollte man sicher sein, daß man keine wichtigen und ungespeicherten Daten offen hat.
Dann führe man deine Prozedur aus und fühle sich in dem neuen Desktop eingesperrt.
Strg+Alt+Entf funktioniert zwar, aber den Taskmanager kann man vergessen, denn dieser öffnet sich nur im Hauptdesktop und man sieht ihn daher garnicht.

Denn SetThreadDesktop funktioniert nur, wenn noch kein Fenster in dem Thread erstellt, bzw. wenn noch keine Messagequeue für diesen Thread initialisiert wurde.
MessageQueues sind an je einen Thread gebunden und Fenster sind an Desktops gebunden ... ein Wechsel ist nicht möglich.