Screenshot usando la API de ampliación: SetThreadDesktop falla cuando se alterna a un nuevo escritorio

Tengo el siguiente código delphi (reflejado enest [https://www.codeproject.com/Articles/607288/Screenshot-using-the-Magnification-library] C ++ ejemplo) capaz de tomar capturas de pantalla ...