Delphi 11.2 64位下CreateWindowEx()返回0的问题求助

已知该问题已有不少相关讨论，我也读过《Delphi 11.2: CreateWindowEx fails thread on x64》一文，但仍未找到明确解决方法。当前在处理Cromis.DirectoryMonitoring的Cromis.Utils.pas文件时，以下代码仅在Delphi 11.2 64位环境下调用CreateWindowEx()返回0：

Result := CreateWindowEx(WS_EX_TOOLWINDOW, CTSHiddenWindowName, '', WS_POPUP,0, 0, 0, 0, 0, 0, HInstance, nil);

排查与解决方向： #

• 检查窗口类注册：
  确保CTSHiddenWindowName对应的窗口类在x64环境下正确注册。Delphi 11.2 x64对WNDCLASSEX的cbSize字段要求严格，必须准确设为SizeOf(WNDCLASSEX)——64位下该值和32位不同，若之前硬编码了32位的大小，会直接导致注册失败，进而CreateWindowEx返回0。
• 验证HInstance有效性：
  若在子线程中调用，HInstance可能未正确获取。试试用GetModuleHandle(nil)替代直接使用HInstance，确保拿到当前模块的有效句柄。
• 确保线程有消息循环：
  子线程中创建窗口必须配套有效的消息循环。64位下Delphi对线程窗口的消息循环要求更严，缺了它窗口创建肯定失败。调用CreateWindowEx后，要启动GetMessage+DispatchMessage的消息循环。
• 排查系统权限限制：
  部分安全软件或系统权限设置可能拦截64位进程创建工具窗口。试试以管理员身份运行程序，或者暂时关闭安全软件测试。
• 用GetLastError定位具体问题：
  在CreateWindowEx返回0后立刻调用GetLastError()，根据返回的错误码（比如ERROR_CLASS_DOES_NOT_EXIST、ERROR_INVALID_PARAMETER等）直接定位问题，这是最有效的排查手段。

内容的提问来源于stack exchange，提问作者AFerns100