谁有IE插件管理的例子,包括查看/删除/禁用/启用等功能. 找会计电算化考试软件
2楼: 这些东西都放在注册表里.
你到注册表里读出来就可以查看,禁用就是删除,然后自己保存一份,恢复的时侯又写进去.
bho的注册表地址在这里
HKEY_LOCAL_MACHINE＼SOFTWARE＼Microsoft＼Windows＼ CurrentVersion＼Explorer＼Browser Helper Objects 如会计电算化考试软件
3楼: 我用监视注册表工具查看了,插件的位置有很多.
HKLM＼SOFTWARE＼Microsoft＼Code Store Database＼Distribution Units＼ 下面放了ActiveX
HKLM＼SOFTWARE＼Microsoft＼Windows＼CurrentVersion＼Explorer＼Browser Helper Objects＼ 下面放了BHO
HKLM＼SOFTWARE＼Microsoft＼Internet Explorer＼Extensions＼ 下面放了扩展项
HKLM＼SOFTWARE＼Microsoft＼Internet Explorer＼Toolbar＼ 下面放了工具项
HKCU＼Software＼Microsoft＼Windows＼CurrentVersion＼Ext＼Settings＼ 下面表示禁用的插件
谁知道插件的发行者如何获得么？
4楼: 发行者要去读哪个装插件的dll
5楼: 怎么读呢？如果是OCX那又怎么读呢
6楼: function GetVersion(filename:string):string;
var
InfoSize, Wnd: DWORD;
VerBuf: Pointer;
szName: array[0..255] of Char;
Value: Pointer;
Len: UINT;
TransString:string;
begin
InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
if InfoSize ＜＞ 0 then
begin
GetMem(VerBuf, InfoSize);
try
if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
begin
Value :=nil;
VerQueryValue(VerBuf, ＇＇＼VarFileInfo＼Translation＇＇, Value, Len);
if Value ＜＞ nil then
TransString := IntToHex(MakeLong(HiWord(Longint(Value^)), LoWord(Longint(Value^))), 8);
Result := ＇＇＇＇;
StrPCopy(szName, ＇＇＼StringFileInfo＼＇＇+Transstring+＇＇＼FileVersion＇＇);
^^^^^^^此处换成ProductVersion得到的是＂产品版本＂ 换成CompanyName得到的是＂制作公司＂
if VerQueryValue(VerBuf, szName, Value, Len) then
Result := StrPas(PChar(Value));
end;
finally
FreeMem(VerBuf);
end;
end;
end;
财务软件版7楼: http://www.yesky.com/41/1743541.shtml
8楼: 谢谢了.
联系我们
