Delphi，Windows 10，如何绘制“前景”窗户？

Question

我曾经这样做，并且在Windows XP上工作正常：

 var
  WND : HWND;
  DC : HDC;
  FF : HFONT;

 begin
   FF:= CreateFont (12,0, GM_COMPATIBLE, 0, 12, dword(false),dword(false),dword(false), ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, pchar('Times New Roman'));

   WND:= GetForegroundWindow;
   DC:= GetDC(WND);
   SelectObject(DC, FF);
   TextOut (DC, 0,Y, pchar('test'), 4);
   ReleaseDC (WND, DC);

有时仍然有效，例如在应用程序自己的窗口或Delphi7本身上绘制，但例如不使用Firefox。如何在 Windows 10 上进行防弹？