как выключить в активном окне звук delphi

[raxp]

...вывести что?

[KWN, lnc]

как реализовать данную возможность?

[raxp]

Ответ уже дан выше.

[KWN, lnc]

а исходник можно?

[Пепел Феникса]

используйте BASS, примеров масса по нему и изменение громкости и воспроизведение.

[KWN, lnc]

все равно ничего не могу сделать. выведите меня из-этого замкнутого круга

[raxp]

...вместе в BASS включается хороший HELP и готовые демки.

[KWN, lnc]

скачал компонент и посмотрел все демки. нет ни одного нормального примера! там пролько проигрыватели mp3 и радио

[Aliens_wolfs]

Передавать окну игры громкость не для всех игр может получится методами PostMessage отправляя сообщения окну, например в игре CS я так и не смог подобраться этими методами до изменения определенных параметров.

Вот простой пример, таймер следит что игра загружена и меняет общую громкость на нужную, если игра закрыта то нужная громкость возвращается.
Может этот пример тебе подойдет.
Либо следить как уже предлогалось по активности окна методом GetForegroundWindow но тогда нужно доработать мой код ловить Хендел в таймере а затем менять громкость.

В свой проект добавь в uses MMSystem, TlHelp32;

implementation

{$R *.dfm}

//Процедура подтверждающая что нужная программа загружена или нет
Function ProcessExists(ExeFileName: String): Boolean;
Var
ContinueLoop: Bool;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
Begin
Result:=False;
FSnapshotHandle:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.DwSize:=SizeOf(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
While Integer(ContinueLoop) <> 0 Do
Begin
If ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
AnsiUpperCase(ExeFileName)) Or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
AnsiUpperCase(ExeFileName))) Then
Begin
Result:=True;
End;
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
End;
CloseHandle(FSnapshotHandle);
End;

//Процедура для изменения общей громкости левого и правого каналов
procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Следим за загрузкой игры, имя игры введи ниже и подбери нужную громкость меняя значения в параметре SetVolume
If ProcessExists('твоя игра.exe') then
SetVolume(10000, 10000) //Громкость когда игра загружена
else
SetVolume(65000, 65000); //Громкость когда игра закрыта
end;

[KWN, lnc]

у меня чета не пашет! (( регулирует только окошко проекта