برای این کار یک  TrackBar روی فرم قرار بدید. مقدار Max اون رو برابر 65535   قرار بدید. و خطوط زیر رو در OnChange اون قرار بدید. لازم به ذکر است که باید از یونیت MMSystem استفاده کنید.

Procedure TForm1.TrackBar1Change(Sender: TObject);

Var

  MyWaveOutCaps: TWaveOutCaps;

  Volume: Integer;

Begin

  Volume:=TrackBar1.Position;

  If WaveOutGetDevCaps(WAVE_MAPPER, @MyWaveOutCaps,sizeof(MyWaveOutCaps)=MMSYSERR_NOERROR then

    WaveOutSetVolume(WAVE_MAPPER, MakeLong(Volume, Volume));

End;

سلام

امروز می خوام یکی دیگه از تخم مرغ های دلفی رو براتون معرفی کنم.

از منوی Help آیتم  About رو انتخاب کنید . وقتی پنجره About باز شد ، کلید  Alt رو پایین نگه داشته و کلمه ی Developers رو تایپ کنید ، به صداهایی که می یاد توجه نکنید . نتیجه کار رو براتون نمی گم تا خودتون انجامش بدین.