مساعدة فى حماية المشروع

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

_____________________________

ارجو المساعدة فى حماية مشروع بعد التحزيم

استخدمة الكود هذا حتى لايعمل البرنامج الا بوجود الاسطوانة فى السى دى دروم

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

الكود فى مشكلة بعد التحزيم طبعا الى يوجد فى الاسطوانة البرنامج متحزم وليس البرنامج حر

لذلك لايعمل الكود

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

تانى حاجة

اريد اى طريقة لمنع نسخ الاسطوانة عن طريق اخذ صورة iso منها

اسف على الاطالة ...