delphi屏蔽WebBrowser页面中传出来的声音

本文整理自网络，侵删。

 
procedure CloseSound;
var 
  hWinmm: Cardinal;
  pwaveOutWrite: Pointer;
  lp: Cardinal;
 begin
  hWinmm := LoadLibrary('Winmm.dll');
  if hWinmm > 0 then
    pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutOpen');
  if pwaveOutWrite  <> nil then begin
    VirtualProtect(pwaveOutWrite, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$18#$00, pwaveOutWrite^, 3);
  end;
end;
 

相关阅读 >>

Delphi 把文件锁定到任务栏

Delphi 动态更改webbrowser数据流内容

Delphi中判断一个字符串是否为数字

Delphi 实现窗体随着鼠标移动

Delphi 如何在窗体标题栏添加按钮

Delphi disable_uac_vista

Delphi xe2创建apple ios程序

Delphi 通过控件句柄获取控件实例

Delphi 数组类型与数组指针的巧妙利用

Delphi firemonkey app 如何获得当前系统语言设置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi屏蔽WebBrowser页面中传出来的声音