Wie kann ich verdammt noch ma in dem Standartplayer von Delphi die Lautstärke ändern? Kann mir da jemand einen Befehl geben? VIELEN DANK.
Hallo Christian,
folgendes hab ich mal woanders gefunden …
uses
… , MMSystem, …;
//evtl. auch noch mehr Units
{------------------------------------------------------------------------------}
procedure _SysSoundkarteSetVolume(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;
Gruss
Markus
Wie kann ich verdammt noch ma in dem Standartplayer von Delphi
die Lautstärke ändern? Kann mir da jemand einen Befehl geben?
VIELEN DANK.