用DELPHI实现文件加密压缩

用DELPHI实现文件加密压缩(4) fmShareDenyNone :别的程序可以以任何方式打开该文件


（三）资源文件
1）、创建资源文件 
首先创建一个.Rc的纯文本文件。
格式： 资源标识符  关键字  资源文件名 

资源标识符：程序中调用资源时的特殊标号； 
关键字：标识资源文件类型；
Wave： 资源文件是声音文件；
RCDATA： JPEG文件；
AVI： AVI动画；
ICON： 图标文件； 
BITMAP： 位图文件； 
CURSOR： 光标文件； 
EXEFILE ： EXE文件
资源文件名：资源文件的在磁盘上存储的文件全名

例如：
myzjy exefile zjy.exe

2）、编译资源文件
在Delphi的安装目录的\Bin下，使用BRCC32.exe编译资源文件.RC。当然，也可以将BRCC32单独拷贝到程序文档目录使用。
例如：
Brcc32 wnhoo_reg.Rc

3）、资源文件引用
…
implementation

{$R *.dfm}
{$R wnhoo_reg.Res}
…
4）、调用资源文件
(1)存取资源文件中的位图(Bitmap) 
Image.Picture.Bitmap.Handle :=LoadBitmap(hInstance,'资源标识符');
注：如果位图没有装载成功，程序仍旧执行，但是Image将不再显示图片。你可以根据LoadBitmap函数的返回值判断是否装载成功，如果装载成功返回值是非0，如果装载失败返回值是0。

另外一个存取显示位图的方法如下  
Image.Picture.Bitmap.LoadFromResourceName(hInstance,'资源标识符'); 

(2)存取资源文件中的光标
Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。因为默认的光标在数组中索引值是0，所以除非想取代默认光标，最好将定制的光标索引值设为1。 
Screen.Cursors[1] :=LoadCursor(hInstance,'资源标识符');
Image.Cursor :=1;

(3)存取资源文件中的图标
将图标放在资源文件中，可以实现动态改变应用程序图标。
Application.Icon.Handle := LoadIcon(hInstance,'资源标识符');

(4)存取资源文件中的AVI
Animate.ResName :='MyAvi' ; //资源标识符号
Animate.Active :=True ;

(5)存取资源文件中的JPEG
把jpeg单元加入到uses单元中。
var
Fjpg : TJpegImage ;
FStream :TResourceStream ;
begin
Fjpg :=TJpegImage.Create ;
//TresourceStream使用
FStream := TResourceStream.Create (Hinstance,'资源标识符',资源类型) ;
FJpg.LoadFromStream (FStream) ;
Image.Picture.Bitmap.Assign (FJpg);

(6)存取资源文件中的Wave
把MMSystem加入uses单元中
PlaySound(pchar('mywav')，Hinstance，Snd_ASync or Snd_Memory or snd_Resource) ;