Folder Lock

من المكتبة OLE32.DLL

وأعتقد الكود للأخ محمد البدوي

Private Declare Function CoCreateGuid_Alt Lib "OLE32.DLL" Alias "CoCreateGuid" (pGuid As Any) As Long
Private Declare Function StringFromGUID2_Alt Lib "OLE32.DLL" Alias "StringFromGUID2" (pGuid As Any, ByVal address As Long, ByVal Max As Long) As Long

Private Function CreateGUID() As String
 Dim res As String, resLen As Long, guid(15) As Byte
		res = Space$(128)
		CoCreateGuid_Alt guid(0)
		resLen = StringFromGUID2_Alt(guid(0), ByVal StrPtr(res), 128)
		CreateGUID = Left$(res, resLen - 1)
End Function

Private Sub Command1_Click()
	MsgBox CreateGUID
End Sub

بعد التحية

شكرا اخي عبد العزيز

الكود بحثت عنه داخل psc

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

اريد المستخدم ما يقدر ينسخ او يحذف الملف

-----------------------------

قبل البحث جاتني فكرة للقفل :

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

بس بالنسبة الي الشغلة صعبة لان :
لازم اخلي برنامجي يصنع برنامج اخر لطلب كلمة المرور
انا ما اعرف الى مسار الريجستري الي يخلي هذا الملف ما يشتغل ويشغله البرنامج

راجع الرابط /index.php?showtopic=145275