我正在开发一个创建新桌面的应用程序，我希望这个桌面是可用的，比如有图标、任务栏......为此，我使用了CreateDesktop()函数，但新创建的桌面只是一个灰色屏幕。即使在那个桌面上执行explorer.exe，它也不起作用，仍然有一个灰色屏幕，如下所示：

（我还想，如果我试图用资源管理器打开一个文件，该文件不是在新桌面中打开的，而是在旧桌面中打开的）
我使用了这个GitHub项目，它是用C++编写的，并在 Delphi 中进行了修改：
https://github.com/MalwareTech/CreateDesktop/
这是我的代码：

function CreateHiddenDesktop(desktopname : string) : THandle;
var
  pi : TProcessInformation;
  si : TStartupInfoA;
  hidden_Desktop,original_desktop : THandle;
begin
  //Creating a new desktop
  hidden_Desktop := CreateDesktop('hdtest',nil,nil,0,GENERIC_ALL,nil);
  //Saving handle of current desktop
  original_desktop := GetThreadDesktop(GetCurrentThreadID());

  SetThreadDesktop(hidden_desktop);

  //Executing explorer.exe in the new desktop
  si := Default(TStartupInfoA);
  si.cb := sizeof(si);
  si.lpDesktop := 'hdtest';

  if not CreateProcessA(
        'C:\Windows\System32\explorer.exe',         
        nil, 
        nil,                
        nil,               
        False,
        0,
        nil,                
        nil,        
        si,                 //Startup Info
        pi                 //Process Info
  ) then
    MessageBox(0, PChar('error when creating process inside the desktop'), PChar(''), 0);

  SetThreadDesktop(original_desktop);

  Result := hidden_desktop;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  hidden_Desktop,original_desktop : THandle;
  msg : TMSG;
begin
  hidden_Desktop := CreateHiddenDesktop('hdtest');
  original_desktop := GetThreadDesktop(GetCurrentThreadId());

  MessageBox(0, PChar('Entering hidden desktop'), PChar('HVNC'), 0);

  SetThreadDesktop(hidden_desktop);
  SwitchDesktop(hidden_desktop);

  //If the keys CTR + ALT + E are pressed we go back to the original desktop
  if RegisterHotKey(0,1,MOD_CONTROL + MOD_ALT + MOD_NOREPEAT,ord('E')) then
  begin
    while(GetMessage(msg, 0, 0, 0)) do
    begin
      if msg.message = WM_HOTKEY then
      begin
        SwitchDesktop(original_desktop);
        break;
      end;
    end;
  end;

  CloseHandle(hidden_desktop);
end;