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;