我如何枚举RT_VERSION资源语言？

我目前正试图从RT_VERSION资源types枚举所有资源语言。 这是我迄今为止没有运气，因为我的callback程序根本不开火。

function TEnumResLangProc (hModule: HMODULE; lpszType,lpszName : PChar; wIDLanguage : Word; lParam : Longint) : Bool; stdcall; begin MessageBox(0,lpszName,'',0); // For testing MessageBox(0,lpszType,0); // For testing result := true; end; if not EnumResourceLanguages (HINSTANCE,RT_VERSION,PChar('1'),@TEnumResLangProc,0) then RaiseLastOSError;

我总是得到错误代码1813，我找不到任何有关它的文档。 我也不确定“索引”参数PChar('1')我做错了什么，如何枚举所有RT_VERSION语言？

编辑：

价值1031是想要的

如何在非触摸式Windows上testing支持触摸的应用程序？

使用Delphi 10.2的Linux的InterlockedExchangeAdd的等价物）

如何在Delphi中允许拖动特定控件的文件

Delphi DllMain DLL_PROCESS_DETACH在DLL_PROCESS_ATTACH之前调用

我如何确定确切的PE图像文件大小使用其头（S）？

如何将一个DLL注入到Delphi程序中

Delphi或Freepascal的Nginx头文件

从NT服务发送消息到远程桌面会话

如何使hover最小化，最大化和closuresbutton的行为？

检测设备（打印机，扫描仪，鼠标等）是否无法正常工作

此错误代码是ERROR_RESOURCE_TYPE_NOT_FOUND 。 这意味着在指定模块中没有该类型和名称的资源。

在图像文件中找不到指定的资源类型。

请注意错误代码的记录： http : //msdn.microsoft.com/en-us/library/windows/desktop/ms681381.aspx

很可能这个名字是错的。 你的意思是通过MakeIntResource(1)或者'#1'吗？

你的回调函数应该设置返回值。 编译器会警告你这个错误。 你真的应该启用和注意警告。 此外，类型声明不是64位兼容，但我怀疑这个问题。