استفسار بخصوص رفع وخفض الصوت

[gorgegorge]

السلام عليكم ورحمة الله وبركاته
اخواني انا عملت برمجية صغيرة مع العلم انا جديد في الدلفي
ووضعت له trackbar لكي اقوم برفع الصوت وانخفاضه

**** منكم كود كيفية رفع وخفض الصوت صورة توضيحية
http://your-picture.info/images/388_14_02_1431_06_09_57_1605_.png

[paix144]

و عليكم السلام و رحمة الله
شوف هذا السورس أخي
سوف يوساعدك إن شاء الله
http://www.delphi4arab.com/forum/showpost.php?p=15415&postcount=10

[gorgegorge]

وعليكم السلام اخي
و عليكم السلام و رحمة الله
شوف هذا السورس أخي
سوف يوساعدك إن شاء الله
http://www.delphi4arab.com/forum/showpost.php?p=15415&postcount=10

اخي الغالي انا ارريد فقط الامر لاارريد سورس لان السورس الدي ارسلته لايفتح عندي يوجد مكونات ناقصة عندي (:

[paix144]

const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;

type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;



تم نكتب الدالة
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
{ Volume: 0 - 1000 }
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
{ Volume: 0 - 1000 }
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

تم نستدعي الدالة
procedure TForm4.ScrollBar1Change(Sender: TObject);
begin
SetMPVolume(form1.mediaplayer1,scrollbar1.position );
end;
لا تنسى أن تستدعي المكتبة MMSystem في قائمة Uses

[gorgegorge]

اشكرك اخي الكريم بارك المولى فيك