API读取资源文件
我把DLL编绎成资源文件包含在EXE中，EXE运行时自动还原DLL并进行调用。

R.rec
-------------------------------------------------
MYDLL DLLFILE A.DLL


//释放资源文件
procedure ResourceToFile(FileName:pChar);
var
hResInfo:HRSRC;
hResData:HGLOBAL;
dwSize,dwWritten:DWORD;
hFile:THANDLE;
pl: PByte;
begin
hResInfo := FindResource(HInstance, 'MYDLL ', 'DLLFILE ');
if (hResInfo <> 0) then
begin
dwSize := SizeofResource(HInstance,hResInfo);
hResData := LoadResource(HInstance,hResinfo);
pl := LockResource(hResData);
if(hResData <> 0) then
begin
hFile := CreateFile(FileName,GENERIC_WRITE,0,nil,CREATE_ALWAYS,0,0);
WriteFile(hFile,pl,dwSize,dwWritten,nil);
CloseHandle(hFile);
end;
end;
end;

//EXE中调用出错，A.DLL释放后是零字节。
ResourceToFile( 'a.dll ');



[解决办法]
procedure ExtractRes(ResType, ResName, ResNewName: string);
// TODO -cMM: ExtractRes 释放资源
var
HResInfo: THandle;
HGlobal: THandle;
FMemory: Pointer;
FSize: Longint;
handle: THandle;
Wsize: longword;
procedure SetPointer(Ptr: Pointer; Size: Longint);
begin
FMemory := Ptr;
FSize := Size;
end;
function Initialize(Instance: THandle; Name, ResType: PChar): boolean;
begin
result := false;
HResInfo := FindResource(Instance, Name, ResType);
if HResInfo = 0 then Exit;
HGlobal := LoadResource(Instance, HResInfo);
if HGlobal = 0 then Exit;
SetPointer(LockResource(HGlobal), SizeOfResource(Instance, HResInfo));
result := true;
end;
begin
if not Initialize(hInstance, PChar(ResName), PChar(ResType)) then exit;
if fileexists(ResNewName) then Deletefile(pchar(ResNewName));
try
handle := Integer(CreateFile(PChar(ResNewName), GENERIC_READ or

GENERIC_WRITE,
0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
WriteFile(Handle, FMemory^, FSize, Wsize, nil);
CloseHandle(handle);
except
end;
UnlockResource(HGlobal);
FreeResource(HGlobal);
end;