Здравствуйте, <Аноним>, Вы писали:
А>Сосбвенно вызвать получается, но pHost всегда = nil.
А>Соотвественно на pHost.Start; всё вылетает.
А>Что я не так делаю?
А>В проекте использую файл mscoree_TLB.pas полученный через tlbimp
А>А>type
А> TCorBindToRuntimeEx = function(pwszVersion: PWideString; pwszBuildFlavor: PWideString;
А> startupFlags: DWORD; rclsid: TCLSID; riid: TGUID; var ppv): HRESULT;
А>
Стандартная ошибка -- забыл
stdcall.
Вот прототип, который юзаю я:
CorBindToRuntimeEx : function (
pwszVersion : PWideChar;
pwszBuildFlavor: PWideChar;
flags: Cardinal;
const rclsid: TGuid;
const riid: TGuid;
out ppv) : HRESULT; stdcall;
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
