delphi - 找不到资源文件 'rights'

Question

在 FormCreate 过程中我写:

 var f: TResourceStream;
  begin
    // load data about rights from rights.txt resource file
     f := TResourceStream.create(Hinstance, 'rights', PChar('RT_RCDATA'));
  try
    LoadFromStream(f);
  finally
    f.free;
  end;

并得到错误:

Project1.exe raised exception class ERESNotFound with message 'Resource rights not found'.

如果我更改文件路径“权限”:

'rights.txt'            or
'D:\Example\rights.txt' or
'D:\Example\rights'

我也遇到同样的错误!

rights.txt 文件我在项目文件夹和 win32\debug\project1.exe 文件夹中都找到，但出现了相同的错误。

更新1

PopupMenu with access rights

rights.txt file for loading popupmenu

rights.txt 文件中这些 undefined symbol 是什么？

Answer 1

您需要将 ResType 参数更改为 RT_RCDATA 而不是 PChar('RT_RCDATA')

f := TResourceStream.create(Hinstance, 'rights', RT_RCDATA);

在System.Types单元中定义的RT_RCDATA如下

const
  RT_RCDATA       = PChar(10);

所以你也可以这样使用

f := TResourceStream.create(Hinstance, 'rights', PChar(10));