05-01-14, 10:32 PM
05-01-14, 11:30 PM
و جدت في احدى المواقع هذه المشاركة
"
المهم الطريقة التي يمكن بها اقفال مجلد ومنع المستخدم من مسحه او تغيير اسمه او تغيير مكانه ... و التي لا تنفع الا في الويندوز 98 هي :
ادخل الى نافذة الدوس
|||||||||||||مثلا نريد أقفال المجلد "C:\Crazy"
نقوم يتغيير المسار في الدوس بكتابة cd.. الى ان يصبح المسار
c:\>
نقوم الآن بكتابة الأمر التالي
c:\>ren crazy crazy
ثم قبل الضغط على Enter نقوم بالضغط على Alt و دون تركها نركب الرقم 220 ثم نترك Alt سنلاحظ أنه تم كتابة رمز صغير بعد ذلك نضغط على Enter فيكون هكذا قد تم أغلاق المجلد
و لأني مسحت الفيجوال 6 من كمبيوتري اليوم لم أستطع من عمل برنامج متكامل ووضعه لكن يمكنك ذلك بطبيعة الحال عن طريق تمرير البارمترز للدوس عن طريق الفيجوال
"
"
المهم الطريقة التي يمكن بها اقفال مجلد ومنع المستخدم من مسحه او تغيير اسمه او تغيير مكانه ... و التي لا تنفع الا في الويندوز 98 هي :
ادخل الى نافذة الدوس
|||||||||||||مثلا نريد أقفال المجلد "C:\Crazy"
نقوم يتغيير المسار في الدوس بكتابة cd.. الى ان يصبح المسار
c:\>
نقوم الآن بكتابة الأمر التالي
c:\>ren crazy crazy
ثم قبل الضغط على Enter نقوم بالضغط على Alt و دون تركها نركب الرقم 220 ثم نترك Alt سنلاحظ أنه تم كتابة رمز صغير بعد ذلك نضغط على Enter فيكون هكذا قد تم أغلاق المجلد
و لأني مسحت الفيجوال 6 من كمبيوتري اليوم لم أستطع من عمل برنامج متكامل ووضعه لكن يمكنك ذلك بطبيعة الحال عن طريق تمرير البارمترز للدوس عن طريق الفيجوال
"
07-01-14, 10:34 PM
السلام عليكم
- قم بفتح الملف بهذه الطريقة وبذلك لكن يكون أحد قادر على تعديله أو حذفه إلى أن تغلقة :
- تحياتي .
- قم بفتح الملف بهذه الطريقة وبذلك لكن يكون أحد قادر على تعديله أو حذفه إلى أن تغلقة :
كود :
Dim F As Integer
Private Sub Command1_Click()
'لمنع التعديل عليه والحذف
F = FreeFile
Open "C:\File.exe" For Binary Lock Read Write As #F
End Sub
Private Sub Command2_Click()
'للسماح
Close #F
End Sub- تحياتي .