不不不,一点都不离谱。
你的办法是利用自己的代码启动 IE 。如果执行了别的浏览器的 EXE 文件,IE 不会阻止
它,如果设定默认为别的浏览器,只要一点链接就不是启动 IE 。对不对。但试着执行下
面的代码就可以杀死腾讯浏览器,这个腾讯浏览器就不能打开(其余类似):
------------------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
function EnumWindowsProc(Wnd: HWnd;lP:lParam): boolean; stdcall;
var
ClsName,WndCapt,Temp:string;
WndCaption: array[0..254] of char;
WndClassName: array[0..254] of char;
begin
GetWindowText(Wnd, @WndCaption, 254);
GetClassName(Wnd, @WndClassName, 254);
ClsName:= StrPas(WndClassName);
WndCapt:=StrPas(WndCaption);
Temp:=Copy(WndCapt,Length(WndCapt)-15,16);
if (ClsName='Afx:400000:0') and (Temp='Tencent Explorer') then
begin
case lp of
0:SendMessage(Wnd, WM_CLOSE, 0, 0); // 客气一点
1
ostMessage(Wnd,wm_destroy,0,0); // 没商量
end;
// 这里可以增加启动 IE 的代码。
end;
Result := True;
end;
begin
EnumWindows(@EnumWindowsProc, 0{1});
end;
-----------------------------------------------------------------------------
不过,首先把 IE 设为默认的浏览器的第一要紧的事。