{=======================================================}
{                                                       }
{         DelphiUpx－ 內存運行EXE文件演示程序           }
{                                                       }
{    版權所有 (c) 2004 陳經韜.lovejingtao@21cn.com      }
{                                                       }
{                            http://www.138soft.com     }
{=======================================================}

program RunRes;

uses
  Windows,
  {如果該資源里面的EXE文件引用了VCL窗口,則必須引用Forms}
  MemoryRun;

{$R *.res}
{$R Setup.res} //包含資源文件.
var
  ResourceLocation: HRSRC;
  ResourceSize: LongWord;
  ResourceHandle: THandle;
  ResourcePointer: Pointer;
begin
  ResourceLocation := FindResource(HInstance, pchar('setup'), 'exefile');
  if ResourceLocation <> 0 then
  begin
    ResourceSize := SizeofResource(HInstance, ResourceLocation);
    if ResourceSize <> 0 then
    begin
      ResourceHandle := LoadResource(HInstance, ResourceLocation);
      if ResourceHandle <> 0 then
      begin
        ResourcePointer := LockResource(ResourceHandle);
        if ResourcePointer <> nil then CjtMemoryRun(ResourcePointer);
      end;
    end;
  end;
end.