فائدة:كيفية تشغيل برنامجك من الاسطوانة(CD)

سوف اضع لكم اليوم كيفية التعامل مع فتح برنامجك من على الـ CD

ضع فى الفورم هذا الكود :

Const DRIVE_CDROM = 5
Private Sub Command2_Click()
On Error GoTo arafa
'ضع هنا مسار برنامجك على الاسطوانة بهذا الشكل
Shell Text1.Text & "VB6\SETUP.EXE"

Exit Sub
arafa:
MsgBox "فضلا ادخل القرص الليزري ", vbCritical + vbMsgBoxRight, "تنبيه !!"

End Sub
Private Sub Form_Load()
CD
End Sub
Public Sub CD()
Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
Dim CDfound As Integer
allDrives$ = Space$(64)
r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, r&)
   Do
 pos% = InStr(allDrives$, Chr$(0))
     If pos% Then
        JustOneDrive$ = Left$(allDrives$, pos%)
        allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
        DriveType& = GetDriveType(JustOneDrive$)
     If DriveType& = DRIVE_CDROM Then
        CDfound% = True
        Exit Do
        End If
     End If
Loop Until allDrives$ = "" Or DriveType& = 6
    If CDfound% Then
    Text1 = UCase$(JustOneDrive$)

    Else: MsgBox "لا توجد سواقة ليزرية في جهازك !", vbCritical + vbMsgBoxRight, "تنبيه !!"
    
    End If
End Sub

ضع فى الموديول هذا الكود :

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

وسأرفق لكم المثال التالى جاهز للتحميل

وفى هذا المثال شرح 3 اشياء فى ملف واحد :

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

نسألكم الدعاء

تم نقل الموضوع من منتديات الحسام

CD.zip