Virtuelle Desktops

[DelphiUser123]

Hallo liebe Delphi Freunde,

im Moment lote ich die Möglichkeiten aus, wie man multiple virtuelle Desktops erzeugen kann mittels eines eigens erstellten Delphi Programmes.
Es geht darum zum einen die Arbeitsfläche zu erweitern (wie dies schon unter Windows 10 geht). Zum anderen möchte ich aber auch Flächen für Verknüpfungen und Dateien schaffen.
Aus eigener Erfahrung weiss ich wie schnell ein einzelner Desktop voll werden kann...

Es fehlt mir momentan eine grundsätzliche Strategie. Meine Recherchen ergaben das unter Delphi Treff veröffentlichte Drag and Drop von Dateien, die Dateipfade von auf das Formular gezogene Dateien werden automatisch in eine Listbox eingetragen.
Ich möchte jedoch auch noch Symbol und darunter Dateiname, die auf der vom User erzeugten Position stehen.

Meine ersten Versuche mit CreateDesktop und SwitchDesktop ergaben nur einen schwarzen Bildschirm.
Wie komme ich hier weiter?

Vielen Dank für Antworten.

[Der schöne Günther]

Die API zu CreateDesktop, SwitchDesktop usw. sind wirklich komplett neue Oberflächen. Das einzige Beispiel wo man in der Praxis drüber stößt ist der UAC-Dialog. Auf manchen PCs wird während des Umschaltens der Bildschirm kurz schwarz. Oder der Strg+Alt+Entf-Bildschirm, der ist auch ein eigener Desktop.

Das ganze hat zusätzlich noch eine Menge Einschränkungen. Für Windows 7-Nutzer ist wohl ärgerlich dass Aero (dieses durchsichtige Glas) nur auf dem allerersten Desktop funktioniert. Ich glaube Dinge wie das Startmenü sind standardmäßig auch nicht sichtbar. Von den Anzahl her wäre man auch sicher begrenzt. Von den merkbaren Umschaltzeiten ganz zu schweigen.


Es ist eine interessante API, aber ich glaube nicht dass es sich für deinen Plan eignet.


PS: Ja, als ich mit der API mal herumgespielt hatte musste ich auch oft neustarten wenn man sich selbst komplett gefangen hatte

[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;

[Der schöne Günther]

Ich bin mal gespannt- Spontan würde es mich nicht wundern dass, wenn man Icons wieder einblendet, es exakt die selben wie auf anderen sind. Und sich das nicht anpassen lässt.

[Memnarch]

Du musst schlichtweg den Explorer unter dem Desktop starten. Beim CreateProcess kann in den startup parametern die WinSTation und der Desktop angegeben werden. Dort nimmst du die normale WInstation aber den Namen deines Desktops, statt default.

Hab das auch schonmal gemacht und war eigentlich recht weit. Allerdings haben die Explorere Shortcuts nicht funktioniert.

PS: IIRC ein Problem ist, dass programme glaub ich auch weiterhin defaultmässig auf dem Default-Desktop starten.

EDIT: gerade festgestellt, wenn ich den Explorer zuerst auf dem Default-Desktop kille und dann auf meinem neuen Desktop neustarte, installiert er dort alle hooks und Zeigt den Desktop mit samt Ordnern an.

[himitsu]

Icons: Auf dem Desktop liegt quasi eine ListView (InternetExplorer bei "Active Desktop") ... sowas wird man bestimmt auch selber auf den Hintergrund pappen können und schon hat man eigene Icons.