unit OleObj;interfaceuses
ComObj, ActiveX, OleDpr_TLB, StdVcl,Windows;type
TExeFile = class(TAutoObject, IExeFile)
protected
procedure RunExeFile(const AFileName: WideString); safecall;
{ Protected declarations }
end;implementationuses ComServ;procedure TExeFile.RunExeFile(const AFileName: WideString);
begin
Winexec(PChar(AFileName), SW_SHOWNORMAL);
end;initialization
TAutoObjectFactory.Create(ComServer, TExeFile, Class_ExeFile,
ciMultiInstance, tmApartment);
怎样在(TWebbrowser)HTML中调用该OLE对象的RunExeFile方法?
ComObj, ActiveX, OleDpr_TLB, StdVcl,Windows;type
TExeFile = class(TAutoObject, IExeFile)
protected
procedure RunExeFile(const AFileName: WideString); safecall;
{ Protected declarations }
end;implementationuses ComServ;procedure TExeFile.RunExeFile(const AFileName: WideString);
begin
Winexec(PChar(AFileName), SW_SHOWNORMAL);
end;initialization
TAutoObjectFactory.Create(ComServer, TExeFile, Class_ExeFile,
ciMultiInstance, tmApartment);
怎样在(TWebbrowser)HTML中调用该OLE对象的RunExeFile方法?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货