Nach Create + Switchdesktop auf Tastatureingaben reagieren.

[Noobinator]

Hallihallo

Ich weiß nicht genau wohin dieses Thema gehört, also poste ich einfach mal hier.

Ich habe mir mit Createdesktop einen neuen Desktop erzeugt und switche dann mit switchdesktop auf diesen

nun ist meine Fragen:

1. Kann ich Ein Fenster auf diesem Anzeigen? so ala showmessage?

2. Kann ich auch weiterhin in meinem Progg auf Tastatureingaben reagieren?

Habe dazu schon gegoogelt aber nichts richtiges gefunden.

Oder kann ich es auch so managen das mein Proggramm auf dem neuen Desktop läuft?
Dazu habe ich allerdings schon gelesen das das mit VCL nicht so einfach sein soll, wobei es jedoch möglich sein soll, das das Handle des Programms auf den neuen Desktop zu übergeben.

mein Bisheriger Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
//unser neuer Desktop
desktop := CreateDesktop('mydesk',nil,nil,0,
            DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or
            DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or
            DESKTOP_WRITEOBJECTS or DESKTOP_READOBJECTS or
            DESKTOP_SWITCHDESKTOP or GENERIC_WRITE,
            nil);

//der Standard Desktop damit wir auch zurück kommen
inputdesktop := OpenDesktop('default', 0, FALSE,
            DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or
            DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or
            DESKTOP_WRITEOBJECTS or DESKTOP_READOBJECTS or
            DESKTOP_SWITCHDESKTOP or GENERIC_WRITE);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var i:real;
begin
i := 0;
if key = 'a' then // wenn A gedrückt wechseln 
  begin
    switched := true;
    SwitchDesktop(desktop); //auf den neuen desktop wechseln
    SetThreadDesktop(desktop); //Den Thread auf diesen setzen
    while i < 10000000 do //Durchzählen damit man nach einer weile zurückkommt
      begin
         application.ProcessMessages;
         i := i + 0.1;
      end;
    SwitchDesktop(inputdesktop); //zurück
    SetThreadDesktop(inputdesktop);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Mein Versuch auf tastatureingaben zu reagieren
  if (getasynckeystate(ord('S'))< 0 ) and Switched  then
  begin
    SwitchDesktop(inputdesktop); //zurück
    SetThreadDesktop(inputdesktop);
    Switched := false;
  end;
end;

Danke schonmal für konstrutkive Hilfe