Eigener Desktop???

[Doc Morelli]

Ok, was hab ich hier jetzt falsch gemacht?

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateDesktop('Oliver', nil, nil, DF_ALLOWOTHERACCOUNTHOOK, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP, nil);
SetThreadDesktop(Opendesktop('Oliver', DF_ALLOWOTHERACCOUNTHOOK, true, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP));
shellexecute(application.Handle, 'open', 'C:\Programme\Borland\Delphi7\Projects\Desktops\DesktopClosedpr.dpr', nil, nil, sw_shownormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
switchdesktop(Opendesktop('Oliver', DF_ALLOWOTHERACCOUNTHOOK, true, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_JOURNALPLAYBACK or DESKTOP_JOURNALRECORD or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or DESKTOP_SWITCHDESKTOP));
end;

Es soll eine Datei im neuen Desktop geöffnet werden, mit der ich den Desktop 'Oliver' wieder schließen kann. Desktop wird auch geswitcht, aber das Fenster wird nicht angezeigt. Was ist daran nun wieder falsch???

//Edit: hab gerade gesehen, ich muss auch schon die exe-Datei öffnen... Aber das Fenster wird nicht im neuen Desktop geöffnet...