资源文件中文本文件的操作(50分)

如何在资源文件中实现对文本文件的操作？
VB里面好像是这样 MyName TEXTFILE sample.txt
但在DElphi中是否也这样，如果是这样，用什么函数载入呢？(VB中:LoadResData)

//编写 test.rc 文件
kk TXT kk.txt
//kk 是文本文件在资源中的索引字不要和其他的重复。
//TXT 是资源类型，你也可以写成别的。 如 TEXT or FILE ...
//kk.txt 是你要加如的文本文件

//用Microsoft Visual C++ 6.0 打开test.rc 将 test.rc另存为 test.res
//或则用delphi自带的编译器在dos命令行输入brcc32 test.rc生成test.res

//在程序中使用
implementation
{$R *.DFM}
{$R test.res} // 程序中必需加入此段否则程序找不到资源

procedure form1.button1click(sender: tobject);
var
h: THandle;
p: pointer;
begin
h := FindResource(hInstance,
'KK', // 资源名。
'TXT'); // 资源类型
h := LoadResource(hInstance, h);
p := LockResource(h);
memo1.lines.text := pchar(p); // 将数据赋给一控件以便显示内容。
UnLockResource(h);
FreeResource(h);
end;

我收藏

接受答案了.