是procedure Connect; override;这个过程的原因 执行部分为: procedure TSpSharedRecoContext.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as ISpeechRecoContext; end; end; 好像是 ConnectEvents(punk); 的原因
regsvr32 c:\windows\system32\comctl32.ocx
后面的路径换成你自己的路径和文件。
执行部分为:
procedure TSpSharedRecoContext.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as ISpeechRecoContext;
end;
end; 好像是 ConnectEvents(punk); 的原因