घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

निर्देशिका सामग्री हटाना इसी तरह की शाखाएँ खोजें


Марина   (2001-12-20 15:42) [0]

क्या आप कृपया मुझे बता सकते हैं कि निर्देशिका की सामग्री को कैसे हटाएं, और निर्देशिका को स्वयं कैसे छोड़ें? आपको डिलीटफाइल ("c: \ kio \ massiv \ *। *" जैसे कुछ की आवश्यकता है) अग्रिम धन्यवाद और मैं "चायदानी" प्रश्न के लिए माफी चाहता हूं।



gek   (2001-12-20 15:47) [1]

अगर फाइंडफर्स्ट ("\ TEMP \ *। tmp", faAnyFile, SearchRec) = तो XUMUM
जबकि (FindNext (SearchRec) = 0) करते हैं
यदि नहीं हटाया गया तो (pchar ("\ TEMP \" + SearchRec.name))
Application.Terminate;
FindClose (SearchRec);



Dimka Maslov   (2001-12-20 16:05) [2]

Windows, SysUtils, Classes, Masks का उपयोग करता है; प्रक्रिया DeleteFiles (पथ: स्ट्रिंग); वर मुखौटा: स्ट्रिंग; SearchRec: TSearchRec; FindResult: पूर्णांक; सूची: TStringList; i: पूर्णांक; शुरू करना मुखौटा: = ExtractFileName (पथ); यदि मास्क = "" फिर मास्क: = "*। *"; पथ: = ExtractFilePath (पथ); यदि पथ = "" तो पथ: = सम्‍मिलित करेंट्रैकिंगब्लैकलैश (GetCurrentDir); सूची: = TStringList.Create; कोशिश FindResult: = FindFirst (पथ + "*। *", FaAnyFile, SearchRec); कोशिश जबकि FindResult = 0 SearchRec के साथ शुरू करते हैं if ((Attr and faDirectory) = 0) और MatchesMask (नाम, मास्क) तो List.Add (नाम); FindResult: = FindNext (SearchRec); अंत; i: = 0 को List.Count - 1 do DeleteFile (पथ + सूची [i]); अंत में FindClose (SearchRec); अंत; अंत में List.Free; अंत; अंत;



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.55 एमबी
समय: 0.023 c
3-21992
DLK
2001-12-06 15:21
2002.01.08
कैसे एक कार्यक्रम देने के लिए नहीं


14-22351
Nikols
2001-10-31 18:55
2002.01.08
सर्वेक्षण: कौन लगा हुआ है (जानता है, CORBA में दिलचस्पी)


1-22138
Serg5
2001-12-20 09:22
2002.01.08
लोग, मुझे बताएं और Image1 को कैसे साफ़ करें, क्लियर को फंक्शन नहीं मिला ...


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
क्लिपबोर्ड पर कॉपी करें


1-22105
Gonza
2001-12-19 16:35
2002.01.08
एमडीआई आवेदन ???





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский