से "सेटअप विज़ार्ड में आपका स्वागत है" टेक्स्ट को कैसे हटाएं मेरे पास विजुअल स्टूडियो इंस्टालर प्रोजेक्ट है जो मैं विजुअल स्टूडियो 2010 में बना रहा हूं और यह जानने में असमर्थ हूं कि "आपका स्वागत है [ उत्पाद का नाम] सेटअप विज़ार्ड "विज़ार्ड के संवाद बॉक्स से टेक्स्ट।विजुअल स्टूडियो इंस्टालर प्रोजेक्ट
उदाहरण के लिए: मैं नीचे दिए गए स्क्रीनशॉट से "सेटअप 1 सेटअप विज़ार्ड में आपका स्वागत है" टेक्स्ट कैसे हटा सकता हूं?
यह दृश्य स्टूडियो सेटअप परियोजनाओं द्वारा समर्थित नहीं है।
एक समाधान नियंत्रण टेक्स्ट को संशोधित करने के लिए ओआरका के साथ एमएसआई को संपादित करना होगा, लेकिन आपको प्रत्येक निर्माण के बाद इसे करना होगा। तो आप या तो इसे इस तरह से छोड़ सकते हैं या एक अन्य सेटअप संलेखन उपकरण का उपयोग कर सकते हैं जो आपको अपने स्थापना संवाद को अनुकूलित करने की अनुमति देता है।
आप स्वागत संवाद को हटाकर और इसे एक कस्टम संवाद के साथ बदलकर पाठ को "हटा" सकते हैं। वी.एस. में 2005 -
फिर आप प्रोजेक्ट में "टेक्स्टबॉक्स (ए)" संवाद जोड़ सकते हैं ("स्टार्ट" समूह पर राइट क्लिक करें और डायलॉग जोड़ें का चयन करें), टेक्स्ट बॉक्स के लिए दृश्यमान संपत्ति को गलत पर सेट करें। टेक्स्ट स्टार्ट (ए) को "स्टार्ट" अनुक्रम के शीर्ष तक ले जाएं।
इस संवाद के लिए गुण शामिल हैं:
BannerBitmapBannerTextBodyTextयह आपको नज़र/महसूस (कुछ हद तक) को नियंत्रित करने के लिए इस की अनुमति चाहिए नया "स्वागत है" पृष्ठ।
आप नोटपैड में प्रोजेक्ट फ़ाइल को संशोधित करके आसानी से स्वागत टेक्स्ट बदल सकते हैं। (यानी project1.vdproj) उत्पाद नाम या शीर्षक को बदलना सुनिश्चित करें। मुझे याद नहीं है कि कौन सा वास्तव में और फिर परियोजना का पुनर्निर्माण करता है और आप सब कुछ कर चुके हैं।
मैंने इसे एक ऐसे दृष्टिकोण को संशोधित करके पूरा किया जिसे मैंने ऑनलाइन मिले कई अन्य परिणामों से एक साथ पाई है।
चरण 1: सहेजें निम्नलिखित के रूप में removebannertext.vbs सेटअप परियोजना के रूट फ़ोल्डर में:
Option Explicit
If (Wscript.Arguments.Count < 1) Then
Wscript.Echo "Windows Installer utility to execute SQL queries against an installer database." & vbCRLf & " The 1st argument specifies the path to the MSI database, relative or full path"
Wscript.Quit 1
End If
Dim openMode : openMode = 1 'msiOpenDatabaseModeTransact
On Error Resume Next
Dim installer : Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError
' Open database
Dim database : Set database = installer.OpenDatabase(Wscript.Arguments(0), openMode) : CheckError
Wscript.Echo "Removing all BannerText..."
Dim query
query = "UPDATE `Control` SET `Control`.`Attributes`=0 WHERE `Control`.`Control`='BannerText'"
Dim view : Set view = database.OpenView(query) : CheckError
view.Execute : CheckError
database.Commit
Wscript.Echo "Done."
Wscript.Quit 0
Sub CheckError
Dim message, errRec
If Err = 0 Then Exit Sub
message = Err.Source & " " & Hex(Err) & ": " & Err.Description
If Not installer Is Nothing Then
Set errRec = installer.LastErrorRecord
If Not errRec Is Nothing Then message = message & vbCRLf & errRec.FormatText
End If
Wscript.Echo message
Wscript.Quit 2
End Sub
चरण 2: इस के लिए परियोजना की PostBuildEvent संपत्ति सेट करें:
cscript.exe "$(ProjectDir)removebannertext.vbs" "$(BuiltOuputPath)"
प्रबंधक डौग उत्तर अच्छा काम करता है।
लेकिन ProgressBarBannerText हटाया नहीं गया है।मुझे लगता है कि BannnerText गोनर डॉग द्वारा सुझाए गए नियंत्रण में विशेषता मान को हटाने के बजाय, अगर हम BannerText स्ट्रिंग को खाली कर सकते हैं तो यह अच्छा हो सकता है। हम इसे करके ProgressBar विंडो के बैनर टेक्स्ट को भी हटा सकते हैं। ध्यान दें कि विशेषता मान को हटाकर ProgressBar बैनर टेक्स्ट के लिए काम नहीं करेगा।
प्रबंधक डौग जवाब में, की जगह query रूप
query = "UPDATE `Control` SET `Control`.`Text`='' WHERE `Control`.`Control`='InstalledBannerText' OR `Control`.`Control`='BannerText' OR `Control`.`Control`='RemoveBannerText'"
यह भी प्रगति बार विंडो में बैनर पाठ को हटा देगा।
Option Explicit
If (Wscript.Arguments.Count < 1) Then
Wscript.Echo "Windows Installer utility to execute SQL queries against an installer database." & vbCRLf & " The 1st argument specifies the path to the MSI database, relative or full path"
Wscript.Quit 1
End If
Dim openMode : openMode = 1 'msiOpenDatabaseModeTransact
On Error Resume Next
Dim installer : Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError
' Open database
Dim database : Set database = installer.OpenDatabase(Wscript.Arguments(0), openMode) : CheckError
Wscript.Echo "Removing all BannerText..."
Dim query
query = "UPDATE `Control` SET `Control`.`Text`='' WHERE `Control`.`Control`='InstalledBannerText' OR `Control`.`Control`='BannerText' OR `Control`.`Control`='RemoveBannerText'"
Dim view : Set view = database.OpenView(query) : CheckError
view.Execute : CheckError
database.Commit
Wscript.Echo "Done."
Wscript.Quit 0
Sub CheckError
Dim message, errRec
If Err = 0 Then Exit Sub
message = Err.Source & " " & Hex(Err) & ": " & Err.Description
If Not installer Is Nothing Then
Set errRec = installer.LastErrorRecord
If Not errRec Is Nothing Then message = message & vbCRLf & errRec.FormatText
End If
Wscript.Echo message
Wscript.Quit 2
End Sub
एक समाधान (अपने सेटअप बनाने की प्रक्रिया लंबी नहीं है अगर) - आप स्क्रैच से सेटअप बनाने के लिए और मेरे सेटअप की तरह उस समय इसका नाम बदलना जब यह सेटअप के नाम के लिए संकेत देता है करना होगा।
बहुत बढ़िया। :) – BinaryMee