घर
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.025 c
1-22175
नाविक
2001-12-20 16:06
2002.01.08
संकेत के बारे में


4-22501
कला
2001-11-02 08:30
2002.01.08
क्या अन्य अनुप्रयोगों के लिए कुछ एपि के उपयोग को रोकना संभव है?


1-22056
Delphimun
2001-12-15 13:11
2002.01.08
Brcc32.exe का उपयोग करके संसाधन कैसे बनाएं?


14-22380
भौजनशाला का नौकर
2001-11-09 10:37
2002.01.08
Muscovites, किसी को भी बिक्री पर जीत एपीआई संदर्भ गाइड देखा है?


1-22215
VovaKomarov
2001-12-16 13:36
2002.01.08
ग्राहक अद्यतन





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