mbshareat
سه شنبه 17 بهمن 1391, 11:16 صبح
سلام
من با کامپوننت MediaPlayer میخوام یه فایل صوتی رو اجرا کنم یه TrackBar هم برای تنظیم حجم صوت گذاشتم که Max اون 15 هست.
مشکل اینه که نمی دونم چطور میشه فقط حجم صوت رو در برنامه خودم تغییر بدم بدون اینکه ولوم صوت ویندوز تغییر بکنه.من از این کد استفاده می کنم:
procedure TMainForm.SetVoluem();
var
Count, i,P: integer;
begin
P:=15-MainSoundVolume.Position;
Count := waveOutGetNumDevs;
for i := 0 to Count do
begin
waveOutSetVolume(i,longint(P*4369)*65536+longint(P *4369));
end;
end;
میشه وقت خروج از برنامه ولوم رو به حالت اول برگردونم اما برنامه ای دیدم که کاری به ولوم صوت ویندوز نداره. مثلا KMPlayer اینطوریه. آیا راهی سراغ دارید؟
من با کامپوننت MediaPlayer میخوام یه فایل صوتی رو اجرا کنم یه TrackBar هم برای تنظیم حجم صوت گذاشتم که Max اون 15 هست.
مشکل اینه که نمی دونم چطور میشه فقط حجم صوت رو در برنامه خودم تغییر بدم بدون اینکه ولوم صوت ویندوز تغییر بکنه.من از این کد استفاده می کنم:
procedure TMainForm.SetVoluem();
var
Count, i,P: integer;
begin
P:=15-MainSoundVolume.Position;
Count := waveOutGetNumDevs;
for i := 0 to Count do
begin
waveOutSetVolume(i,longint(P*4369)*65536+longint(P *4369));
end;
end;
میشه وقت خروج از برنامه ولوم رو به حالت اول برگردونم اما برنامه ای دیدم که کاری به ولوم صوت ویندوز نداره. مثلا KMPlayer اینطوریه. آیا راهی سراغ دارید؟