TWebBrowser静音

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;