?? runres.dpr
字號:
{=======================================================}
{ }
{ 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -