资源方法!,Project->Resources add Resource, use User Type , select file then OK, when you use the Res then:
var hResInfo, hRes : THandle; RCData:Pointer; s:integer; Data: TMemoryStream;
begin
hResInfo := FindResource(HInstance, 'RC名字', 'RC类型');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then {its a good load}
begin {lock the resource}
RCData:=LockResource(hRes);
s:=SizeofResource(Hinstance,hResInfo);
Data:=TFileStream.Create(...自己会的了);
Data.Write(RCData^,s); //保存到文件
Data.Free;
end; //可以用了,记得结束deleteFile(..)就可以了
var hResInfo, hRes : THandle; RCData:Pointer; s:integer; Data: TMemoryStream;
begin
hResInfo := FindResource(HInstance, 'RC名字', 'RC类型');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then {its a good load}
begin {lock the resource}
RCData:=LockResource(hRes);
s:=SizeofResource(Hinstance,hResInfo);
Data:=TFileStream.Create(...自己会的了);
Data.Write(RCData^,s); //保存到文件
Data.Free;
end; //可以用了,记得结束deleteFile(..)就可以了
解决方案 »
- AsString 255 问题
- 弟弟病了,还未确诊是否是肺结核,可是非常担心,祝他早日康复,接受大家的祝福,谢谢!--2
- 一个C++翻译成delphi的问题(200分求教)
- listview 加载 信息问题
- twebbrowser 里浏览的是框架结构,如何让焦点对到一个特定的框架
- 处理数据的问题....
- 用来在1个窗体中显示另1个窗体的构件叫什么?比如:formshow.showform(form2)
- 存储过程:关于ADOStoredProc的,
- 求救,请各位大侠帮帮忙,这里先谢谢大家了
- 高分给各位高手,Dephi中"index is readonly"问题如何解决?
- 高手快来看看啊,,送分啊
- 如何学习delphi
把文件包含在资源中,使用是从资源保存到文件,然后就可以用那个文件的,记得不用时删除