本人初学DELPHI：如何在TWEBBROWSER中阻止ZIP文件下载，如何防止打开OUTLOOK，WORD等程序，入即给分

Question

如题

Answer 1

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
  var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  var Cancel: WordBool);
var s: String;
begin
  s := LowerCase(URL);
  Cancel := (ExtractFileExt(s) = '.zip') or (Copy(s, 1, 7) = 'mailto:') or (ExtractFileExt(s) = '.doc');
end;

Answer 2

OK,搞定,谢谢!!!!
在此向所有回复我在CSDN上的贴子的朋友表示感谢,向所有CSDN上给我帮助的朋友表示感谢,祝大家编程序顺利!