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

नीचे

और आप फ़ोल्डर तक पहुंच को रोक सकते हैं, fmShareExclusive जैसा कुछ, लेकिन फ़ोल्डर के लिए ??? इसी तरह की शाखाएँ खोजें


Art   (2001-12-18 15:12) [0]

और आप फ़ोल्डर तक पहुंच को रोक सकते हैं, fmShareExclusive जैसा कुछ, लेकिन फ़ोल्डर के लिए ???



Алексей Петров   (2001-12-18 16:08) [1]

CreateFile का उपयोग करके, आप एक निर्देशिका खोल सकते हैं, जिसमें शामिल हैं और विशेष।

कोशिश करो ...

MSDN विवरण



cdaDmitriy   (2001-12-18 17:20) [2]

> एलेक्सी पेट्रोव ©
स्रोत के लिए CreateFile का उपयोग करने के लिए स्रोत
क्या मैं CreateFile के साथ एक निर्देशिका खोल सकता हूं? ...



Алексей Петров   (2001-12-18 17:23) [3]

> cDDmitriy © (18.12.01 17: 20)
MSDN पढ़ें।
स्रोत मैं तुच्छ मामलों का हवाला नहीं देता।



Art   (2001-12-18 17:25) [4]

मैं निश्चित रूप से कोशिश करूँगा, लेकिन शब्द MSDN कुछ क्षुद्रता को बढ़ाता है, और मैं डेल्फी के बारे में बात कर रहा हूँ !!



cdaDmitriy   (2001-12-18 17:40) [5]

> एलेक्सी पेत्रोव © मैं तुच्छ मामलों में नहीं लाता हूं?
मैंने कोशिश की ... कोशिश करें और एक उदाहरण दें।



cdaDmitriy   (2001-12-18 17:47) [6]

S1: = "D: \ ICON \"; सहित और विशेष
H: = पूर्णांक (CreateFile (PCNUMX), GENERIC_READ 0 , nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0));
Label1.Caption: = inttostr (H);
यदि H <0 तो EFCreateError.CreateResFmt (@S, [S1]) बढ़ाएँ;




Art   (2001-12-18 17:53) [7]

cdaDmitriy otkudova आपको मिल गया, मुझे कोई संदेह नहीं है कि कोड काम कर रहा है, लेकिन मैं निर्देशिकाओं के बारे में पढ़ना चाहता हूं



cdaDmitriy   (2001-12-18 17:59) [8]

CreateFile के लिए मदद और कोशिश की



Art   (2001-12-18 20:24) [9]

आप लोग या तो मूर्ख हैं या पढ़ना नहीं जानते। एक प्रश्न पूछा गया था। आपको फ़ोल्डर को लॉक करने की आवश्यकता है, इसे एक्सेस करना है। और आप मेरे बारे में फ़ाइलों के बारे में ??? मैंने पहले तो यह विश्वास नहीं किया, लेकिन फिर मुझे पता चला, मेरे प्रश्न को छोड़कर यहां लिखी गई हर चीज, बकवास है!



Anatoly Podgoretsky   (2001-12-18 20:28) [10]

हां, और आपको क्या लगता है कि भविष्य में इसका उत्तर दिया जाएगा, मैं ऊपर दिए गए कोड की जांच नहीं करना चाहता, लेकिन निम्न फ़ोल्डर उसी फ़ाइल को इंगित करता है।



Art   (2001-12-18 21:39) [11]

“अनातोली, तो मैं एक मूर्ख हूँ !!! ? यह बात है !!! and मैंने ऊपर दिए गए कोड को आज़माया और इसे स्वयं लिखा और कुछ नहीं गया; यदि आप निर्देशिका निर्दिष्ट करते हैं, तो कुछ भी नहीं बदलता है, लेकिन यदि फ़ाइल है, तो सब कुछ काम करता है, फ़ाइल लॉक है !!! ? इससे कैसे निपटें ???



Алексей Петров   (2001-12-19 08:41) [12]

एक और संकेत:
"CdaDmitriy © (18.12.01 17: 47)" द्वारा प्रदान किए गए कोड में 2 त्रुटियां हैं।
1। निर्देशिका नाम में, अंतिम "\" शानदार है।
2। यह जाँच कर कि क्या खोला गया फ़ाइल INVALID_HANDLE_VALUE के लिए जाँच करके प्रदर्शित किया जाना चाहिए, न कि <0। डेल्फी और WinAPI इंटेगर (INVALID_HANDLE_VALUE) के वर्तमान संस्करण में, बेशक, <0, लेकिन यह बदल सकता है, इसके अलावा, सैद्धांतिक रूप से, सही हैंडल दिखाई दे सकता है, जैसे कि Integer (हैंडल) <0।
3। WinAPI त्रुटियों की जांच करने के लिए - यह लिखना अधिक सुविधाजनक है
Win32Check (H <> INVALID_HANDLE_VALUE)

> कला © (18.12.01 17: 25)
यदि MSDN भ्रमित है - SDK सहायता देखें, यह वास्तव में MSDN का एक छोटा संस्करण है। और डेल्फी से, सभी एपीआई पूरी तरह से लागू होते हैं।



cdaDmitriy   (2001-12-19 09:31) [13]

> एलेक्सी पेट्रोव ©

1। निर्देशिका नाम में, अंतिम "\" शानदार है।
यह अतिरेक नहीं बल्कि बेमानी है:

lpFileName

एक शून्य-समाप्त स्ट्रिंग को इंगित करता है जो ऑब्जेक्ट का नाम (फ़ाइल, पाइप, मेल्सलॉट, संचार संसाधन, डिस्क डिवाइस, कंसोल, या निर्देशिका) बनाने या खोलने के लिए निर्दिष्ट करता है।

यदि * lpFileName एक पथ है, तो MAX_PATH वर्णों की डिफ़ॉल्ट स्ट्रिंग आकार सीमा है। यह सीमा कैसे CreateFile फ़ंक्शन पार्स के पथ से संबंधित है।
Windows NT: आप CreateFile के विस्तृत (W) संस्करण को कॉल करके MAX_PATH वर्णों से अधिक लंबे रास्तों का उपयोग कर सकते हैं और पथ के लिए "\\? \" पूर्व निर्धारित कर रहे हैं। "\\? \" पथ पार्सिंग को बंद करने के लिए कार्य बताता है। इससे आप उन रास्तों का उपयोग कर सकते हैं जो लगभग 32,000 यूनिकोड वर्ण लंबे हैं। आपको इस तकनीक के साथ पूरी तरह से योग्य पथों का उपयोग करना होगा। यह UNC नामों के साथ भी काम करता है। "\\? \" पथ के भाग के रूप में अनदेखा किया जाता है। उदाहरण के लिए, "\\? \ C: \ myworld \ Private" को "C: \ myworld \ Private", और "\\" के रूप में देखा जाता है? \ _ 'कूलप्प्स'।

2। इकाई वर्गों के कार्यान्वयन को देखें; हालांकि
Win32Check (H <> INVALID_HANDLE_VALUE) अधिक विश्वसनीय है।


{} TFileStream

निर्माता TFileStream.Create (कास्ट फाइलनाम: स्ट्रिंग; मोड: वर्ड);
शुरू करना
अगर मोड = fmCreate तो
शुरू करना
FHandle: = FileCreate (FileName);
अगर FHandle <0 तो
EFCreateError.CreateResFmt (@SFCreateError, [FileName]) बढ़ाएँ;
और अंत
शुरू करना
FHandle: = FileOpen (FileName, Mode);
अगर FHandle <0 तो
EFOpenError.CreateResFmt (@SFOpenError, [FileName]) बढ़ाएँ;
अंत;
अंत;

आर्ट © सब कुछ काम करता है अगर आप लिखना चाहते हैं



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

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

ऊपर









मेमोरी: 0.6 एमबी
समय: 0.056 c
3-21984
श्री एंड्रयू
2001-12-05 20:39
2002.01.08
डेटा अपडेट


14-22346
इवान शिखर
2001-11-06 20:30
2002.01.08
हाइकु :))


3-21983
विजेता
2001-12-06 13:13
2002.01.08
डेल्फी एक्सएनयूएमएक्स पर सीरियल नंबर


14-22395
विदेशी
2001-11-07 01:15
2002.01.08
आदेश से अलग क्या गड़बड़ है?


1-22190
T2
2001-12-14 03:22
2002.01.08
KillSelf





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