दिलचस्प पोस्ट
AFNetworking के साथ एक टाइमआउट कैसे सेट करें ग्रहण में मेवेन प्रोजेक्ट नहीं बना सकता "->" PHP ऑपरेटर क्या कहा जाता है और आप जोर से कोड पढ़ते समय कैसा बोलते हैं? गतिशील रूप से एक विशेषता में मिश्रण जावास्क्रिप्ट एचटीएमएल इनपुट में "अक्षम" विशेषता को हटा दें नया एप्लिकेशन बनाते समय उपयोग करने के लिए रेल संस्करण निर्दिष्ट करना पायथन फ़्लोटिंग प्वाइंट नंबर तुलना आर में सफेद स्थान के पहले वर्ण स्ट्रिंग निकालने के लिए gsub का उपयोग करना जावा डेस्कटॉप अनुप्रयोग में Google नक्शे एम्बेड करें लॉगिन / लॉगआउट के साथ डेल्फी आवेदन – कैसे लागू करने के लिए? सरल पायथन चैलेंज: डाटा बफ़र पर सबसे तेज़ बीटावर्ड एक्सओआर किसी अन्य वर्ण के साथ स्ट्रिंग में कुछ वर्णों को बदलना फ़ंक्शन के पास जाने के बाद चर का मूल नाम निर्धारित करें क्या Google परिणामों से डेटा को स्क्रैप करना ठीक है? Linux dynamic linker से "कोई संस्करण जानकारी उपलब्ध नहीं" त्रुटि क्या है?

Inno सेटअप: प्रतिलिपि फ़ोल्डर, सबफ़ोल्डर और फ़ाइलों को लगातार कोड अनुभाग में

क्या कोड अनुभाग में एक फाइल के सभी फाइलों और सबडिरेक्टरीज को ब्राउज करने और पुनरावर्ती कॉपी / स्थानांतरित करने का कोई तरीका है? ( PrepareToInstall )

मुझे एक विशिष्ट निर्देशिका की अनदेखी करने की आवश्यकता है, लेकिन xcopy का उपयोग करते हुए यह सभी निर्देशिकाओं /default/ ध्यान नहीं देता, उदाहरण के लिए, और मुझे केवल एक विशेष को अनदेखा करना होगा

Files अनुभाग को बाद में आवश्यक समय पर निष्पादित किया जाता है

Solutions Collecting From Web of "Inno सेटअप: प्रतिलिपि फ़ोल्डर, सबफ़ोल्डर और फ़ाइलों को लगातार कोड अनुभाग में"

एक निर्देशिका को लगातार प्रतिलिपि बनाने के लिए प्रोग्राम का प्रयोग करें:

 procedure DirectoryCopy(SourcePath, DestPath: string); var FindRec: TFindRec; SourceFilePath: string; DestFilePath: string; begin if FindFirst(SourcePath + '\*', FindRec) then begin try repeat if (FindRec.Name <> '.') and (FindRec.Name <> '..') then begin SourceFilePath := SourcePath + '\' + FindRec.Name; DestFilePath := DestPath + '\' + FindRec.Name; if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin if FileCopy(SourceFilePath, DestFilePath, False) then begin Log(Format('Copied %s to %s', [SourceFilePath, DestFilePath])); end else begin Log(Format('Failed to copy %s to %s', [SourceFilePath, DestFilePath])); end; end else begin if DirExists(DestFilePath) or CreateDir(DestFilePath) then begin Log(Format('Created %s', [DestFilePath])); DirectoryCopy(SourceFilePath, DestFilePath); end else begin Log(Format('Failed to create %s', [DestFilePath])); end; end; end; until not FindNext(FindRec); finally FindClose(FindRec); end; end else begin Log(Format('Failed to list %s', [SourcePath])); end; end; 

आपको जो भी फ़िल्टरिंग की आवश्यकता है उसे जोड़ें। देखें कि कैसे और .. फ़िल्टर्ड हैं


उपयोग के एक उदाहरण के लिए, मेरे सवालों के जवाब देखें:

  • इनो सेटअप में छुपी हुई फ़ाइलों की प्रतिलिपि बनाना
  • उपयोगकर्ता को स्थापना रद्द करने की पुष्टि करने पर फ़ोल्डर कैसे सहेज सकता है? (Inno सेटअप) ।