تحزيم باستخدام Setup Factory - نسخة قابلة للطباعة

كود :

If Not Directory.Exists("Application.StartupPath\My Folder") Then Directory.CreateDirectory("C:\My Folder").Attributes = FileAttributes.Hidden



        Try

            Dim managementClass As New ManagementClass("Win32_Share")

            Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")



            inParams("Description") = "My Description"

            inParams("Name") = "Share Name"

            inParams("Path") = "Application.StartupPath\My Folder"

            inParams("Type") = &H0

            Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)

       Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try



        Dim UserAccount As String = "Everyone"

        Dim FolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo("Application.StartupPath\My Folder")

        Dim FolderAcl As New DirectorySecurity

        FolderAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.Delete, InheritanceFlags.None, PropagationFlags.InheritOnly, AccessControlType.Deny))

        FolderInfo.SetAccessControl(FolderAcl)

بصراحة الكثير هنا بالمنتدى لايعتمدون على ذلك البرنامج Sad

ولكن هناك برنامج جميل اسمه Smart Install Maker فهو بسيط ويدعم اللغة العربية
ويمكنك ان تفعل به كل ماتريد بسهولة + يدعم برامج الفيجوال بيسك دوت نت وخصوصاً قواعد البيانات

ويمكنك ان تجعل البرنامج يبحث عن اصدار النت فريم وورك الذي تختاره فإذا لم يجده يقوم بتحميله من الإنترنت " من الرابط الأصلي لشركة ميكروسوفت "
وهذه توفر عليك دمج الحزمة مع البرنامج
Big Grin