Author: Christian Cristofori

Ever needed to completely disable and then re-enable audio capabilities from your 
application? There's the way to simple do it.

Answer:

1   unit AudioCtrl;
2   
3   interface
4   
5   procedure EnableAudio;
6   procedure DisableAudio;
7   
8   implementation
9   
10  uses
11    MMSystem;
12  
13  var
14    MyVolume: array[0..10] of LongInt;
15    mDevs: Integer;
16  
17  procedure EnableAudio;
18  var
19    I: Integer;
20  begin
21    for I := 0 to mDevs do
22    begin
23      auxSetVolume(I, MyVolume[I]);
24    end;
25  end;
26  
27  procedure DisableAudio;
28  var
29    I: Integer;
30  begin
31    mDevs := auxGetNumDevs;
32    for I := 0 to mDevs do
33    begin
34      auxGetVolume(I, Addr(MyVolume[I]));
35      auxSetVolume(I, LongInt(9000) * 65536 + LongInt(9000));
36    end;
37  end;
38  
39  end.