تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحزيم باستخدام Setup Factory
#1
أخواني الأكارم..
لدي الكود التالي لإنشاء مجلد بخصائص محددة
كود :
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)

إلا أن سؤالي هو أين وكيف أضع هذا الكود عند تحزيم البرنامج باستخدام Setup Factory حيث أن المجلد لا بد أن يتم إنشاءه عند التثبيت
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}
تم الشكر بواسطة:
#2
بصراحة الكثير هنا بالمنتدى لايعتمدون على ذلك البرنامج Sad
ولكن هناك برنامج جميل اسمه Smart Install Maker فهو بسيط ويدعم اللغة العربية
ويمكنك ان تفعل به كل ماتريد بسهولة + يدعم برامج الفيجوال بيسك دوت نت وخصوصاً قواعد البيانات


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

Big Grin



اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  تحزيم المشروع Lamyaa 1 319 17-11-23, 07:44 AM
آخر رد: أبو خالد الشكري
  طلب مساعدة في حفظ قالب للبصمة باستخدام جهاز SecuGen u20 assuhimi 5 696 15-05-23, 10:26 AM
آخر رد: assuhimi
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 10 5,827 20-12-22, 10:21 PM
آخر رد: احمد السعدنى
  مشكلة فى تحزيم برنامج فيجوال . نت حماده ممدوح البحيرى 1 381 22-11-22, 09:53 PM
آخر رد: حماده ممدوح البحيرى
  مشكلة فى تحزيم المشروع حماده ممدوح البحيرى 0 482 14-11-22, 08:30 PM
آخر رد: حماده ممدوح البحيرى
  استفسار مهم حول تحزيم المشروع و قاعدة البيانات من نوع أكسس ACCESS mmaalmesry 4 793 14-09-22, 12:44 AM
آخر رد: mmaalmesry
  قراءة البريد الالكتروني باستخدام الفيجوال بازيك صبري زينوبي 0 378 24-08-22, 05:47 PM
آخر رد: صبري زينوبي
  مشكلة في تحزيم النظام mohamedassim 1 646 21-08-22, 09:21 AM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم