عضو جديد هل من مرحب ومجيب

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

أهلا بك أخي في المنتدى وإليك الجابة :

لمعرفة السواقة الليزرية الموجودة في الحاسب أكتب الكود التالي :

إكتب مايلي داخل الموديل :

Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

واكتب هذا الكود في جينيرال الفورم :

Dim Drive As String

Const DRIVE_CDROM = 5

Const DRIVE_FIXED = 3

Const DRIVE_RAMDISK = 6

Const DRIVE_REMOTE = 4

Const DRIVE_REMOVABLE = 2

واكتب الكود التالي في حدث load للفورم :

r& = GetLogicalDriveStrings(Len(AllDrives$), AllDrives$)

AllDrives$ = Left$(AllDrives$, r&)

Do

Pos% = InStr(AllDrives$, Chr$(0))

If Pos% Then

Jjustonedrive$ = Left$(AllDrives$, Pos%)

AllDrives$ = Mid$(AllDrives$, Pos% + 1, Len(AllDrives$))

DriveType& = GetDriveType(Jjustonedrive$)

If DriveType& = DRIVE_CDROM Then

CdFound% = 1

Exit Do

'******************************

End If

End If

Loop Until AllDrives$ = "" Or DriveType& = 6

If CdFound% Then

cd = UCase$(Jjustonedrive$)

ra = cd.Text

End If

ثم ضع أداة تيكست وسمها cd وستلاحظ ظهور إسم السواقة فيها ....

الآن إستفد منها لتكون مسار ملف الريل

كالتالي

لنفرض إسم الملف الذي تريد تشغيله هو one.ra

فاكتب الكود التالي :

RealAudio1.Source = cd.text & "one.ra"

RealAudio1.DoPlay

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

لاتنساني من دعائك

جزاك الله كل خير يا أخ موفق زكريا من جارك hamady

حمص حي الخضر