merhaba arkadaşlar
Sistem ses ayarını basit bir trackbar ile değişimini nasıl yapabiliriz wlndows 7 kullanıyorum + wave sesini değiştirmeyle ilgili kodlar buldum ama anases için bir örnek bulamadım
İyi çalışmalar....
Sistem ses ayarını değiştirmek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Sistem ses ayarını değiştirmek
Buradaki kodları denedin mi?
http://delphi.about.com/cs/adptips2000/ ... 0800_4.htm
http://delphi.about.com/cs/adptips2000/ ... 0800_4.htm
Re: Sistem ses ayarını değiştirmek
G.Arkas kardeş viewtopic.php?f=19&t=26112 şu eski konuna bi bakabilirmisin acaba en alt kısımda birşey sordum cevaplayan olmadı.İyi günler..
Re: Sistem ses ayarını değiştirmek
@emin_as kardeşim ilgin için çok teşekkür ederim ancak Windows 7 kullandığımdanmıdır bilmiyorum ama hiçbir kod çalışmıyor.
Örneğin aşağıda ki kod??
bulamadım bir türlü.
Örneğin aşağıda ki kod??
Kod: Tümünü seç
procedure GetVolume(var volLeft, volRight: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
vol: DWORD;
begin
volLeft := 0;
volRight := 0;
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
waveOutGetVolume(hWO, @vol);
volLeft := vol and $FFFF;
volRight := vol shr 16;
waveOutClose(hWO);
end;
procedure SetVolume(const volLeft, volRight: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
vol: DWORD;
begin
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
vol := volLeft + volRight shl 16;
waveOutSetVolume(hWO, vol);
waveOutClose(hWO);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
volL, volR: Word;
begin
GetVolume(volL, volR);
Trackbar1.Position := volL;
Label1.Caption := IntToStr(TrackBar1.Position);
Trackbar2.Position := volR;
Label2.Caption := IntToStr(TrackBar2.Position);
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption := IntToStr(TrackBar1.Position);
SetVolume(TrackBar1.Position, TrackBar2.Position);
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Label2.Caption := IntToStr(TrackBar2.Position);
SetVolume(TrackBar1.Position, TrackBar2.Position);
end;
end.
Re: Sistem ses ayarını değiştirmek
Windows7 için aşagıdaki apileri kullanmak gerekiyor.
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Delphi ile ilgili benzer bir api örnegi:
http://social.msdn.microsoft.com/Forums ... 21ffaa39ce
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Delphi ile ilgili benzer bir api örnegi:
http://social.msdn.microsoft.com/Forums ... 21ffaa39ce