بعض استفسارات الصوت في الدلفي

playSound ولاتنسى اضافة mmsystem في لمزيد من التفاصيل راجع Help دلفي

PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC);

والسلام عليكم ورحمة الله

شكرا ولكن هذا اجابة صوت البرنامج أم البوتون

اقتباس

شكرا ولكن هذا اجابة صوت البرنامج أم البوتون

اخي العزيز تحتاج الى دراسة دلفي قبل كل شيء واسئلتك ستسمر الى ما نهاية لذلك انصحك بدراسة اللغة اولا قبل اي شيء

اخر هناك كتاب بالعربي ستجده في المواضيع المثبتة

اقرا لتتعلم بعض الشي ثم اسال كم تريد

وعليكم السلام ورحمة الله وبركاته..

هذا هو رابط الكتاب

http://www.4shared.com/file/27631454/822ed...hi-4-Bible.html

مثال العمل مع الصوت

http://www.goldfaq.ru/lofiversion/index.php/t444.html

unit DTNTMMPlayer;

interface

uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,

Forms, Graphics, Mplayer, mmsystem;

type

TDTNTMMPlayer = class(TMediaPlayer)

private

{ Private fields of TDTNTMMPlayer }

{ Pointer to application's OnChangeTempoError handler, if any }

FOnChangeTempoError : TNotifyEvent;

{ Pointer to application's OnTempoChanged handler, if any }

FOnTempoChanged : TNotifyEvent;

{ Private methods of TDTNTMMPlayer }

{ Method to set variable and property values and create objects }

procedure AutoInitialize;

{ Method to free any objects created by AutoInitialize }

procedure AutoDestroy;

protected

{ Protected fields of TDTNTMMPlayer }

{ Protected methods of TDTNTMMPlayer }

{ Method to generate OnChangeTempoError event }

procedure ChangeTempoError(Sender : TObject); virtual;

{ Method to generate OnTempoChanged event }

procedure TempoChanged(Sender : TObject); virtual;

procedure Loaded; override;

procedure Paint; override;

public

{ Public fields%

merci