كيف لي احدد موقع السي دي روم في حال التشفيل مهم

حسب ما فهمت فأنت تريد قطعة برمجية تحدد لك مشغل الأقراص CD-Rom... إذا كان كذلك فتفضل :

''''' هذا هو تصريح الدالة GetDriveType ''''''''''''''''''''''''''''''

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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function GetCdRomDrive() as String
On Error Resume Next
Dim DriveLetter As Integer
DriveLetter = 65

NotYet:
If GetDriveType(Chr(DriveLetter) & ":") = 5 Then
GetCdRomDrive = Chr(DriveLetter) & ":"
Else
DriveLetter = DriveLetter + 1
GoTo NotYet
End If

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

حسناً كيف تستخدمها ؟؟

كما تلاحظ فإن الدالة تعيد المشغل بعد إضافة الـ : له وذلك حتى يكون جاهز للأستخدام فى برنامجك..

لذلك ففرضاً أنك تريد وضع حرف المشغل فى متغير CDRom مثلاً..

Dim CDRom as String

CDRom = GetCdRomDrive

انتهى !!! بسيطة :)

__________________________________

Chaos

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

شكرا

العائد

وإنه لمن الشرف لى أن أكون عضواً فى هذا المنتدى و ويكفينى شرفاً أنى أستطعت مساعدة أخ مسلم.

والله يوفقك فى برنامجك إن شاء الله

_____________________________________

Chaos

إذا كان البرنامج سوف يكون على السي دي يكون من الأفضل أن تختصر الكود وذلك بدون كتابة

 
'هذا المكود لتشغيل ملف سودي أسمه  music.wav دخال المجلد song 
shell " songmusic1.wav"