اذا كنت تستخدم لغة الفيجوال بيسيك 6 قم باستخدام الكود التالى
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
هذا الكود لجعل البرنامج لا يشتغل الا من على ال CD
`·.¸¸.·´´¯`··._.· (تشي جيفارا) `·.¸¸.·´´¯`··._.·`
لا يهمني اين و متى ساموت بقدر ما يهمني ان يبقى الثوار يملئون العالم ضجيجا كي لا ينام العالم بثقله على أجساد الفقراء.
|