Windows下如何让非NT程序像NT程序一样毫无踪迹在后台运行？

Windows版本：Windows 10

Delphi版本：Delphi 10.3

需求说明：让正常的图形界面程序或DOS程序，能够彻底隐藏踪迹，像NT程序一样在后台悄悄运行！！正常的程序，如果在运行时候，会有程序窗口，如果加入了在任务栏显示代码，最小化会在任务栏有图标！！这些我都不想要，我就想让这些正常程序运行时候，根本任何运行痕迹都看不到！！！

解决过程：

通常这样的程序，把运行的参数设置为SW_HIDE就可以了，但是，对于有些程序，这样设置是不可以的，当最小化时候，会在任务栏留有图标！！怎么办？创建虚拟桌面，让这个运行的程序在这个虚拟桌面中，这样，在当前运行程序的桌面中就看不到任何踪迹了！！

Delphi实现代码：

uses TLHelp32; // 判断进程是否运行用的单元const  DesktopName: PChar = 'NewDesktop'; //虚拟桌面名称var  desktopHandle: THandle; // 桌面handle{  像NT程序一样在后台运行程序，前台看不到被运行程序  说明：无论要运行的程序是正常的图形界面程序，还是DOS程序，在运行程序的桌面中看不到它的任何运行的踪迹，  被运行的程序像NT程序一样悄悄在后台运行，即使这个程序正常运行时候最小化会在任务栏有图标！！  在任务管理器中会查看到被运行程序的进程！！  参数：  fullExe：要运行程序的全路径名称  exeParam：要运行程序的参数  tempDesktopName：创建的虚拟桌面名称  tempDesktopHandle：创建的虚拟桌面Handle  返回值：是否运行成功}function RunInbackGround(fullExe: string; exeParam: string;  tempDesktopName: string; var tempDesktopHandle: THandle): boolean;var  isSuccess: boolean; // 是否运行成功的返回值  CmdLine: string; // 要执行的命令（要执行程序的全路径名称+参数）  WorkingDirP: PChar; // 工作目录  StartupInfo: TStartupInfo; // 进程启动参数  ProcessInfo: TProcessInformation; // 进程信息  ErrorCode: integer; // 进程启动的错误代码  exeName: string; // 要执行程序名称  // 是否程序正在运行  function isExeRunning(exeName: string): boolean;  var    lppe: TProcessEntry32;    isFound: boolean;    Hand: THandle;    tempName: string; // 程序名称    temp: boolean; // 返回值变量    judgePos: integer; // 扩展名判断位置  begin    Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);    lppe.dwSize := SizeOf(lppe); // 必须设置此值    isFound := Process32First(Hand, lppe);    temp := false; // 返回的布尔值    // 程序名称变量    tempName := trim(exeName);    // 扩展名分隔符位置    judgePos := Pos('.', tempName);    // 判断是否有扩展名    if judgePos = 0 then    begin      tempName := tempName + '.exe'; // 添加".exe"扩展名    end    else    begin      if Length(copy(tempName, judgePos, 4)) < 4 then      begin        // 删除不符合添加的扩展名        Delete(tempName, judgePos, (Length(tempName) - judgePos + 1));        // 添加".exe"扩展名        tempName := tempName + '.exe';      end;    end;    // 循环判断是否有相同名称程序    while isFound do    begin      // 判断当前程序名称和指定程序名称相同      if lppe.szExeFile = tempName then      begin        temp := true;        Break;      end;      // Memo1.Lines.Add(IntToStr(i) + ' : ' +IntToStr(lppe.th32ProcessID)+' '+ StrPas(lppe.szExeFile));      isFound := Process32Next(Hand, lppe);    end;    result := temp;  end;// 杀死进程  procedure KillProc(procName: string);  const    PROCESS_TERMINATE = $0001;  var    ExeFileName: String;    ContinueLoop: Bool;    FSnapshotHandle: THandle;    FProcessEntry32: TProcessEntry32;  begin    ExeFileName := procName;    FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);    FProcessEntry32.dwSize := SizeOf(FProcessEntry32);    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);    while integer(ContinueLoop) <> 0 do    begin      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))        = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile)        = UpperCase(ExeFileName))) then        TerminateProcess(OpenProcess(PROCESS_TERMINATE, Bool(0),          FProcessEntry32.th32ProcessID), 0);      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);    end;  end;begin  isSuccess := true; // 是否运行成功的返回值的默认值  {    一，创建用于存放要运行程序的虚拟桌面  }  // 如果虚拟桌面没有创建，则创建  if tempDesktopHandle = 0 then  begin    tempDesktopHandle := CreateDesktop(PChar(tempDesktopName), nil, nil, 0,      GENERIC_ALL, nil);  end;  {    二，运行指定的程序  }  try    // 要执行的命令（要执行程序的全路径名称+参数）    CmdLine := '"' + trim(fullExe) + '" ' + trim(exeParam);    WorkingDirP := nil; // 工作目录    exeName := ExtractFileName(fullExe); // 得到要运行的程序名称    // 如果要运行程序运行中，则先杀死它    if isExeRunning(exeName) = true then    begin      KillProc(exeName); // 杀死正在运行的程序    end;    ZeroMemory(@StartupInfo, SizeOf(StartupInfo));    StartupInfo.cb := SizeOf(StartupInfo);    StartupInfo.lpDesktop := DesktopName; // 设置启动程序的虚拟桌面（注意：这个参数才真正让运行的程序隐藏起来）    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;    StartupInfo.wShowWindow := SW_HIDE; // 常规的隐藏运行程序窗口参数    // 创建要运行程序的进程（CREATE_NO_WINDOW是创建无窗口程序的参数）    if not CreateProcess(nil, PChar(CmdLine), nil, nil, false, CREATE_NO_WINDOW,      nil, WorkingDirP, StartupInfo, ProcessInfo) then    begin      isSuccess := false;      ErrorCode := GetLastError;    end;    with ProcessInfo do    begin      CloseHandle(hThread);      CloseHandle(hProcess);    end;  except    on e: exception do    begin      isSuccess := false;    end;  end;  result := isSuccess;end;

Delphi示例代码：

procedure TForm2.Button3Click(Sender: TObject);var  FileName, Parameters: string;begin  FileName := '要运行的程序，可以是图形界面也可以是DOS程序';  Parameters :='要运行程序的参数，没有就空';  if RunInbackGround(FileName, Parameters, DesktopName, desktopHandle) = true  then  begin    showMessage('虚拟创建桌面完毕：' + IntToStr(desktopHandle));    showMessage('指定程序已经运行：' + FileName);  end  else  begin    showMessage('虚拟创建失败，指定程序没能运行！');  end;end;