Virtuelle Desktops

[Neutral General]

Habe mal grad was runtergetippt (nicht schön, aber geht).
Ich switche nach 10 Sekunden wieder zurück, weil ich Angst hab sonst nicht zurück zu kommen

Habe dann einen leeren Desktop mit meinem Hintergrundbild dass ich normalerweise auch habe. (Hast du vllt einfach einen schwarzen Hintergrund? )
Startmenü/Icons etc sind da nicht enthalten. Da muss man sicherlich noch mehr machen. Aber soweit hab ich mich noch nicht damit beschäftigt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const DESKTOP_DELETE = $00010000;
var desk: THandle;
    currDesk: THandle;
begin
  // Aktuellen Desktop merken um später zurückzukehren :D
  currDesk := GetThreadDesktop(GetCurrentThreadId());

  desk := CreateDesktop('testdesk', nil, nil, 0, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_SWITCHDESKTOP or DESKTOP_WRITEOBJECTS or DESKTOP_ENUMERATE or DESKTOP_DELETE, nil);
  
  // Zum neuen Desktop switchen und nach 10 Sekunden zurückkehren
  SwitchDesktop(desk);
  sleep(10000);
  SwitchDesktop(currDesk);

  // Desktop schließen/freigeben
  CloseDesktop(desk);
end;