delphi2010资源文件使用

原作者: [db:作者] 来自: [db:来源] 收藏邀请



Project 
            Recources...

 






//1提取出资源

procedure TForm1.Button1Click(Sender: TObject);
begin
  with  TResourceStream.Create(HInstance, 'SnapShot_EXE', RT_RCDATA) do
  begin
     SavetoFile('SnapShot.exe');
     Free;
  end;
end;



//播放wav文件




//使用icon 文件



















TResourceStream = class(TCustomMemoryStream)
  private
    HResInfo: THandle;
    HGlobal: THandle;
    procedure Initialize(Instance: THandle; Name, ResType: PChar; FromID: Boolean);
  public
    constructor Create(Instance: THandle; const ResName: string; ResType: PChar);
    constructor CreateFromID(Instance: THandle; ResID: Integer; ResType: PChar);
    destructor Destroy; override;
    function Write(const Buffer; Count: Longint): Longint; override;
  end;






const
  { Predefined Resource Types }
  {$EXTERNALSYM RT_CURSOR}
  RT_CURSOR       = MakeIntResource(1); //光标文件 
  {$EXTERNALSYM RT_BITMAP}
  RT_BITMAP       = MakeIntResource(2);//位图
  {$EXTERNALSYM RT_ICON}
  RT_ICON         = MakeIntResource(3);//图标
  {$EXTERNALSYM RT_MENU}
  RT_MENU         = MakeIntResource(4);
  {$EXTERNALSYM RT_DIALOG}
  RT_DIALOG       = MakeIntResource(5);
  {$EXTERNALSYM RT_STRING}
  RT_STRING       = MakeIntResource(6);
  {$EXTERNALSYM RT_FONTDIR}
  RT_FONTDIR      = MakeIntResource(7);
  {$EXTERNALSYM RT_FONT}
  RT_FONT         = MakeIntResource(8);
  {$EXTERNALSYM RT_ACCELERATOR}
  RT_ACCELERATOR  = MakeIntResource(9);
  {$EXTERNALSYM RT_RCDATA}
  RT_RCDATA       = Types.RT_RCDATA; //MakeIntResource(10);
  {$EXTERNALSYM RT_MESSAGETABLE}
  RT_MESSAGETABLE = MakeIntResource(11);

  DIFFERENCE = 11;
  {$EXTERNALSYM DIFFERENCE}

  RT_GROUP_CURSOR = MakeIntResource(DWORD(RT_CURSOR) + DIFFERENCE);
  {$EXTERNALSYM RT_GROUP_CURSOR}
  RT_GROUP_ICON   = MakeIntResource(DWORD(RT_ICON) + DIFFERENCE);
  {$EXTERNALSYM RT_GROUP_ICON}
  RT_VERSION      = MakeIntResource(16);
  {$EXTERNALSYM RT_VERSION}
  RT_DLGINCLUDE   = MakeIntResource(17);
  {$EXTERNALSYM RT_DLGINCLUDE}
  RT_PLUGPLAY     = MakeIntResource(19);
  {$EXTERNALSYM RT_PLUGPLAY}
  RT_VXD          = MakeIntResource(20);
  {$EXTERNALSYM RT_VXD}
  RT_ANICURSOR    = MakeIntResource(21);
  {$EXTERNALSYM RT_ANICURSOR}
  RT_ANIICON      = MakeIntResource(22);
  {$EXTERNALSYM RT_ANIICON}
  RT_HTML         = MakeIntResource(23);
  {$EXTERNALSYM RT_HTML}
  RT_MANIFEST     = MakeIntResource(24);












{取出现Wav资源}
  with   TResourceStream.Create(HInstance,   'warning',   RT_RCDATA)   do
  begin
    SaveToFile('warning.wav');
    Free;
  end;
 
//把EXE文件打包到资源文件中
一.编写rc脚本文本
新建一个记事本,输入 ExeFile1 ExeFile "myExeFile.exe" 保存文件为 ExeRes.rc
二.将rc文件编译成res资源文件
 
在dos中输入
brcc32 C:\Users\Administrator\Desktop\ExeRes.rc
//brcc32.exe在DelphiX\Bin目录中 将其复制到 C:\Windows目录下面
 
三.在Delphi单元中加入资源文件
新建一个项目,把ExeRes.RES文件复制到 项目目录下,
在 implementation 的{$R *.dfm}的下面输入：
{$R ExeRes.RES}
 
四.把资源文件中exe文件提取出来
uses classes;
procedure ExtractRes( ResType, ResName, ResNewName : String );
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;
 
//把资源文件中exe文件提取出来
procedure TForm1.Button1Click(Sender: TObject);
begin
   ExtractRes('exefile','ExeFile1','C:\Users\Administrator\Desktop\aaa.exe');
end;