Народ, подскажите пожалуйста. А то я себе всю голову сломал уже.
Написал простой объект автоматизации, наследник от TAutoObject
unit Unit1;
interface
uses ComObj,Project1_TLB, StdVcl;
type
TFileZapper = class(TAutoObject, IFileZapper)
public
function Method1(const Param1: WideString): WideString; safecall;
end;
implementation
uses ComServ, Registry, SysUtils,Dialogs;
function TFileZapper.Method1(const Param1: WideString): WideString;
begin
ShowMessage('1');
Result:= Param1+'asdasdasd';
ShowMessage('2');
end;
initialization
TAutoObjectFactory.Create(ComServer, TFileZapper, CLASS_FileZapper, ciMultiInstance, tmApartment);
end.
Всё просто и без фанатизма.
Проблема в том, что на Windows7 при выполнении простого скрипта
set MyManager = CreateObject("Project1.FileZapper")
MsgBox(MyManager.Method1("test-"))
после отображения ShowMessage('2') CScript валится с Exception Code: c0000374
Хотя делаю всё то же самое но на C# (или под XP) и всё работает.
Что может быть такое или хоть в каком направлении рыть?
Есть новые 
Нет новых [134427 +35][b:0][p:0.001]