获取CorBindToRuntimeEx函数指针

获取CorBindToRuntimeEx函数指针

分类： Delphi 2011-07-07 13:23 77人阅读 评论(0) 收藏 举报

http:///questions/776174/jcldotnet-and-some-odd-calling-patterns-using-assembler

将.h转换成Delphi的pas文件：http://www./headconv/index.htm

http:///articles/articles-convert.html

function CorBindToRuntimeEx(pwszVersion, pwszBuildFlavor: PWideChar;
startupFlags: DWORD; const rclsid: TCLSID; const riid: TIID;
out pv): HRESULT; stdcall;
{$EXTERNALSYM CorBindToRuntimeEx}
...
var
_CorBindToRuntimeEx: Pointer = nil;

function CorBindToRuntimeEx;
begin
GetProcedureAddress(_CorBindToRuntimeEx, mscoree_dll,
'CorBindToRuntimeEx');
asm
mov esp, ebp
pop ebp
jmp [_CorBindToRuntimeEx]
end;
end;
...
OleCheck(CorBindToRuntimeEx(PWideCharOrNil(ClrVer),
PWideChar(ClrHostFlavorNames[Flavor]), Flags,
CLASS_CorRuntimeHost, IID_ICorRuntimeHost,
FDefaultInterface));