+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحكم بحجم الصوت من خلال trackbar (/showthread.php?tid=7609)
التحكم بحجم الصوت من خلال trackbar - jeanjamil - 13-03-2016
السلام عليكم
هذا الكود يقطع الصوت الرئيسي للنظام
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
RE: التحكم بحجم الصوت من خلال trackbar - Delphi4Us - 14-03-2016
كود :
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;