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 ;

转载于:https://www.cnblogs.com/honeynm/p/4438291.html