Sistem ses ayarını değiştirmek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 830
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Sistem ses ayarını değiştirmek

Mesaj gönderen G.Arkas »

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....
Resim

emin_as
Üye
Mesajlar: 559
Kayıt: 01 Eki 2008 10:05
Konum: izmir
İletişim:

Re: Sistem ses ayarını değiştirmek

Mesaj gönderen emin_as »


tugsat
Üye
Mesajlar: 132
Kayıt: 04 May 2009 09:30

Re: Sistem ses ayarını değiştirmek

Mesaj gönderen tugsat »

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..

Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 830
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Re: Sistem ses ayarını değiştirmek

Mesaj gönderen G.Arkas »

@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??

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.
bulamadım bir türlü.
Resim

emin_as
Üye
Mesajlar: 559
Kayıt: 01 Eki 2008 10:05
Konum: izmir
İletişim:

Re: Sistem ses ayarını değiştirmek

Mesaj gönderen emin_as »

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

Cevapla