विंडोज पसंदीदा

← →
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 ("पसंदीदा");

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