取文件资源指针

小蜗牛

<火山程序 类型 = "通常" 版本 = 1 />

方法 取文件资源指针 <公开 静态 类型 = 逻辑型 @禁止流程检查 = 真>
参数 文件资源 <类型 = 视窗文件资源>
参数 返回资源文件指针 <类型 = 变整数 @视窗.后缀文本 = "&">
参数 返回资源文件长度 <类型 = 整数 @视窗.后缀文本 = "&">
{
    @ HRSRC hResource = FindResource(NULL, MAKEINTRESOURCE((INT)@<文件资源>), RT_RCDATA);
    @ if (!hResource) return false;
    @ @<返回资源文件长度> = SizeofResource(NULL, hResource);//获取资源文件长度
    @ @<返回资源文件指针> = (INT_P)LoadResource(NULL, hResource);
    @ return @<返回资源文件指针> != 0;
}