屏蔽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_EXECU 阅读全文
posted @ 2012-02-13 11:38 jxgxy 阅读(639) 评论(0) 推荐(0) 编辑
