التأكد من عمل البرنامج من على ال CD-ROM

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

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 

Private Sub Form_Load() 
Dim driveType As Long 
driveType = GetDriveType(Mid(App.Path, 1, 3)) 
If driveType <> 5 Then 
'إنهاء البرنامج إذا كان لايشتغل من القرص المدمج 
End 
End If 
End Sub

شكراًُ جزيلا أخي الكريم

بس أبي أعرف إذا كان البرنامج موجود مثلاً السيدي رايتر راح يشتغل أو لا ؟

راجع الوصلة التالية