Ses Kontrolü

[ALpMontana]

Ses Kontrolü
Ses kartının sesini almak ve arttırıp azalmak
iki değişken tanımlayın. word tipinde
sesal prosedürüne parametre olarak geçen
değişkenlerden dönen değerler sol ve sağ kanal ses bilgileridir.

procedure sesal(var solkanal, sagkanal: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
ses: DWORD;
begin
solkanal:= 0;
sagkanal:= 0;
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
waveOutGetVolume(hWO, @ses);
solkanal:= ses and $FFFF;
sagkanal:= ses shr 16;
waveOutClose(hWO);
end;


procedure Sesdegistir(const solkanal, sagkanal: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
ses: DWORD;
begin
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
ses:= solkanal + sagkanal shl 16;
waveOutSetVolume(hWO, ses);
waveOutClose(hWO);
end;

bu prosedürü kullanmak için
sesdegistir(10000,5000);​

 

[Solariz]

eline sağlık