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使用xmlhttp组件代码

Delphi数值转ip

Delphi模拟点击网页中的按钮

Delphi windows的消息传递--消息盒子

Delphi 每年、月、周、日的开始与结束的时间

Delphi xe中windows7新的taskbar功能的使用

Delphixe5如何获取android手机sim卡串号

Delphi xe5电脑录像功能

Delphi循环移位操作

Delphi android应用程序中的java ui线程中执行处理

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

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