Delphi代码转vb6，祥细内容点击查看

Question

我想把WEBBROWSER网页的声音关闭，或者把我的整个程序声音关闭，但不关闭系统声音
在床上找到了一个贴子，不过是DELPHI的代码，看不太懂
原贴地址：http://topic.csdn.net/u/20090328/11/F70613E8-0EF9-4AC1-978F-3DBEAC7C95F4.html
谁帮我翻译成VB6的，先谢过....代码贴出来:procedure TForm1.FormCreate(Sender: TObject);
var
  hDSound: Cardinal;
  pDirectSoundCreate: Pointer;
  hWinmm: Cardinal;
  pmidiStreamOpen: Pointer;
  pwaveOutWrite: Pointer;
  lp: Cardinal;
begin
  hDSound := LoadLibrary('DSound.dll');
  if hDSound > 0 then
    pDirectSoundCreate := GetProcAddress(hDSound, 'DirectSoundCreate');
  if pDirectSoundCreate <> nil then
  begin
    VirtualProtect(pDirectSoundCreate, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$0C#$00, pDirectSoundCreate^, 3);
  end;  hWinmm := LoadLibrary('Winmm.dll');
  if hWinmm > 0 then
    pmidiStreamOpen := GetProcAddress(hWinmm, 'midiStreamOpen');
  if pmidiStreamOpen <> nil then
  begin
    VirtualProtect(pmidiStreamOpen, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$04#$00, pmidiStreamOpen^, 3);
  end;  if hWinmm > 0 then
    pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutWrite');
  if pwaveOutWrite <> nil then
  begin
    VirtualProtect(pwaveOutWrite, 3, PAGE_EXECUTE_READWRITE, lp);
    Move(#$C2#$0C#$00, pwaveOutWrite^, 3);
  end;
end;

Answer 1

WEBBROWSER网页的声音关闭以前讨论过，实现一些接口即可，整个程序声音关闭倒没试过

Answer 2

哪篇贴子，能不能把地址发出来看下
实现整个程序声音关闭比较有意思，如WIN7的音量调整

Answer 3

新近讨论的帖子没搜索到,不过原理和这里说的是一样的:
http://topic.csdn.net/t/20050731/12/4179307.html
用WebBrowser控件浏览网页时，如何过滤掉图片,声音等 - VB _ 网络编程

Answer 4

谁翻译一下上面的DELPHI代码，我看这代码干嘛用的