المساهمات : 175 تاريخ التسجيل : 21/11/2007 العمر : 40 الموقع : https://elshahed.ahlamontada.net
موضوع: البرنامج يعمل على القرص المدمج (السيدي رووم) فقط الأربعاء 05 ديسمبر 2007, 10:28 pm
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
الرئيسية 
أحدث الصور 
التسجيل 
دخول 
موضوع: البرنامج يعمل على القرص المدمج (السيدي رووم) فقط 
الأربعاء 05 ديسمبر 2007, 10:28 pm
