uses : mmsystem;  

procedure TForm1.TrackBar1Change(Sender: TObject);
var
Count, i: integer;
begin
  Count := waveOutGetNumDevs;
  for i := 0 to Count do
  begin
   waveOutSetVolume(i,longint(TrackBar1.Position*4369)*65536+longint(TrackBar1.Position*4369));
end;
end;

#310 يناير 2005 في 10:56

شكراً لك

وبرك الله فيك

..................بسم الله الرحمن الرحيم..................

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان

.............................................................................................................................

لنبدا دورة دلفي

سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال

التحكم بمنفذ الطابعة عن طريق الدلفي

سلسلة دروس تعلم قواعد بيانات Midas

هيا لنبدأ بالApi

أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة

مكتبه الأكواد, أكواد وبرامج دلفي

.............................................................................................................................

#410 يناير 2005 في 17:06

جميل جدا

هذا الموضوع مغلق.

مواضيع مشابهة

كيف استطيع التحكم بحجم الصوت في أداة WindowsMediaPlayer برمجيا1 رد · 6 سبتمبر 2011
مساعدة في التحكم بالصوت4 رد · 28 أكتوبر 2008
التحكم في كرت الصوت3 رد · 22 ديسمبر 2005
التحكم بقوة الصوت وإظهار المستوى0 رد · 19 يناير 2003
كيف يمكن التحكم بحجم الصوت3 رد · 8 يناير 2004
كيف يتم التحكم في صوت الوندوز عند طريف ريجيستري كي4 رد · 23 ديسمبر 2006