现在的位置: 首页 > 综合 > 正文

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

2013年04月16日 ⁄ 综合 ⁄ 共 325字 ⁄ 字号 评论关闭
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;

 

抱歉!评论已关闭.