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.