delphi4arab منتديات دلفي للعرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم
هذا الكود يقطع الصوت الرئيسي للنظام
var
i:Integer;
begin
for i:=0 to 100 do
begin
keybd_event($AE, MapVirtualKey($AE,0), 0, 0);
keybd_event($AE, MapVirtualKey($AE,0), KEYEVENTF_KEYUP, 0);
السؤال كيف اعدله لكي استطيع من خلاله التحكم بحجم الصوت من خلال trackbar

كود :
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;

delphi4arab منتديات دلفي للعرب

jeanjamil

Delphi4Us