不知道,我们的COM也有这个问题,就是把COM组件的那个别分钟超时改了也不行,没办法,用一个服务检测COM调用时的DLLHOST吧,如果超过一定内存就从内存中清除掉DLLHOST,当然一般在没人工作的时候进行.结束就是那个KILLTASK的过程吧
Uses Tlhelp32
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while integer(ContinueLoop) <> 0do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
定时执行KILLTASK就行了,没有了DLLHOST后COM会自动重起一个的,不过这样做就要保存数据存储时都要用到事务,要不可能会出错