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

नीचे

विंडोज पसंदीदा इसी तरह की शाखाएँ खोजें


Schummi   (2001-09-15 07:45) [0]

नमस्कार स्वामी! कृपया इस तरह के प्रश्न का उत्तर दें - यह कैसे पता करें कि कंप्यूटर पर उपयोगकर्ता के पास ज़ैनस्टालिन विंडा और उसकी भाषा (रूसी या अंग्रेजी) कहां है, या नहीं, यह कैसे पता करें कि पसंदीदा फ़ोल्डर कहां है? अग्रिम धन्यवाद!



Ajax   (2001-09-15 22:30) [1]

सभी सिस्टम फ़ोल्डर।

प्रक्रिया TForm1.FormCreate (प्रेषक: TObject);
था
reg: ट्राइजेन्सी;
ts: TStrings;
i: पूर्णांक;
शुरू करना
reg: = ट्रेजेस्ट्री; क्रिएट;
reg.RootKey: = HKEY_CURRENT_USER;
reg.LazyWrite: = false;
reg.OpenKey ("सॉफ़्टवेयर \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Shell फ़ोल्डर", गलत);
ts: = TStringList.Create;
reg.GetValueNames (ts);
i: = 0 से ts.Count -1 के लिए शुरू करें
Memo1.Lines.Add (ts.Strings [i] + "=" + reg.ReadString (ts.Strings [i]));
अंत;
ts.Free;
reg.CloseKey;
reg.free;
अंत;



Schummi   (2001-09-16 07:22) [2]

शुक्रिया अजाक्स



Борисов Александр   (2001-09-17 01:32) [3]

"डेल्फी एक्सएनयूएमएक्स फॉर एवरीवन" (फेडोरोव एजी, एड। "कंप्यूटरप्रेस", एक्सएनयूएमएक्स) की पुस्तक में, "हाउ टू मेक ए इंस्टॉलर" अनुभाग में मुझे निम्नलिखित कोड मिला:
था
SPath: Array [0..MAX_Path-1] चार का;
पथ: स्ट्रिंग;
..............
शुरू करना
// प्रारंभिक कार्य: हम उस निर्देशिका को ढूंढते हैं जिसमें यह स्थित है
// विंडोज, और WINDOWS / DESKTOP निर्देशिका के लिए मार्ग बनाते हैं, जहां
// कार्यक्षेत्र में प्रदर्शित स्टोर शॉर्टकट

GetWindowsDirectory (sPath, MAX_PATH);
पथ: = स्ट्राप्स (sPath);
पथ: = पथ + "\ DESKTOP \";
.............

यहाँ एक कोड है।



Schummi   (2001-09-22 07:42) [4]

धन्यवाद, बोरिसोव अलेक्जेंडर!



[N\A]   (2001-09-22 14:50) [5]

और कुछ और ... केवल एपीआई का उपयोग कर ...
फ़ंक्शन GetWinDir: string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
GetWindowsDirectory (@Buf [0], MAX_PATH + 1);
परिणाम: = पीशर (@Buf [0]);
यदि परिणाम <> "" तब
यदि परिणाम [लंबाई (परिणाम)] <> "\" तो
परिणाम: = परिणाम + "";
अंत;

फ़ंक्शन GetSysDir: string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
GetSystemDirectory (@Buf [0], MAX_PATH + 1);
परिणाम: = पीशर (@Buf [0]);
यदि परिणाम <> "" तब
यदि परिणाम [लंबाई (परिणाम)] <> "\" तो
परिणाम: = परिणाम + "";
अंत;

फ़ंक्शन GetTempDir: string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
Windows.GetTempPath (MAX_PATH + 1, @ Buf [0]);
परिणाम: = पीशर (@Buf [0]);
यदि परिणाम <> "" तब
यदि परिणाम [लंबाई (परिणाम)] <> "\" तो
परिणाम: = परिणाम + "";
अंत;

समारोह ReadRegStr (RootKey: HKey; सबके, मूल्य: स्ट्रिंग): स्ट्रिंग;
था
सी: एरे [0..254] चार का;
टी, एस: DWORD;
के: एचकेवाई;
शुरू करना
परिणाम: = "";
T: = REG_SZ;
एस: = SizeOf (सी);
यदि RegOpenKeyEx (RootKey, PChar (SubKey), 0, KEY_READ, K) = ERROR_SUCCESS तो
यदि RegQueryValueEx (K, PChar (मान), nil, @ T, @ C, @ S) = ERROR_SUCCESS तो
परिणाम: = सी;
RegCloseKey (के);
अंत;

फ़ंक्शन GetShellFolderPath (const नाम: स्ट्रिंग): स्ट्रिंग;
था
एस: स्ट्रिंग;
शुरू करना
S: = ReadRegStr (HKEY_CURRENT_USER, "सॉफ़्टवेयर \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Shell फ़ोल्डर", नाम);
परिणाम: = s + "\";
अंत;

डेस्कटॉप - डेस्कटॉप
पसंदीदा - पसंदीदा

अगर GetShellFolderPath ("पसंदीदा") <> "\" तब
s: = GetShellFolderPath ("पसंदीदा");



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

फोरम: "सिस्टम";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.022 c
1-22123
dimonf
2001-12-15 16:33
2002.01.08
के बारे में प्रश्न


6-22278
गेराज
2001-10-02 12:27
2002.01.08
मुझे छोटे अक्षरों के साथ बड़े अक्षरों को बदलने के लिए एल्गोरिथ्म बताएं।


1-22168
येगोर बोल्चेव
2001-12-20 21:59
2002.01.08
myedit.exe परम !!


1-22257
Dmitry1
2001-12-14 16:53
2002.01.08
शुभ दिन


6-22288
वायुमंडलीय
2001-10-09 23:49
2002.01.08
WinGate





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