घर
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 : TRegistry;
ts : TStrings;
i: पूर्णांक;
शुरू करना
reg: = ट्रेजेस्ट्री; क्रिएट;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite: = false;
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do begin
Memo1.Lines.Add(ts.Strings[i] +" = " +reg.ReadString(ts.Strings[i]));
अंत;
ts.Free;
reg.CloseKey;
reg.free;
अंत;



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

Спасибо, Ajax!



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

В книжке"Delphi 3.0 Для всех" (Федоров А.Г., изд."КомпьютерПресс", 1998г.), в разделе "Как сделать инсталятор" я нашел следующий код:
था
SPath : Array[0..MAX_Path-1] of Char;
Path : String;
..............
शुरू करना
//Подготовительная работа: находим каталог, в котором расположена
//Windows, и формируем маршрут к каталогу WINDOWS/DESKTOP, где
//храняться ярлыки, отображаемые в рабочей области

GetWindowsDirectory(sPath, MAX_PATH);
Path := StrPas(sPath);
Path := Path + "\DESKTOP\";
.............

Вот такой код.



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

Спасибо и тебе, Борисов Александр!



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

и еще кое что по теме...только с использованием api...
function GetWinDir: string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
GetWindowsDirectory(@Buf[0], MAX_PATH+1);
Result := PChar(@Buf[0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
अंत;

function GetSysDir: string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
GetSystemDirectory(@Buf[0], MAX_PATH+1);
Result := PChar(@Buf[0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
अंत;

function GetTempDir : string;
था
Buf: सरणी [0..MAX_PATH] चार की;
शुरू करना
Windows.GetTempPath(MAX_PATH+1,@Buf[0]);
Result := PChar(@Buf[0]);
if Result <> "" then
if Result[Length(Result)] <> "\" then
Result := Result + "\";
अंत;

function ReadRegStr(RootKey:HKey; SubKey, Value:String):String;
था
C: Array [0..254] of Char;
T,S: DWORD;
K: HKEY;
शुरू करना
परिणाम: = "";
T:=REG_SZ;
S:=SizeOf(c);
if RegOpenKeyEx(RootKey,PChar(SubKey),0,KEY_READ,K)=ERROR_SUCCESS then
if RegQueryValueEx(K, PChar(Value),nil,@T,@C,@S)=ERROR_SUCCESS then
Result := C;
RegCloseKey(K);
अंत;

function GetShellFolderPath(const Name:String):String;
था
एस: स्ट्रिंग;
शुरू करना
S:=ReadRegStr(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",Name);
Result:=s+"\";
अंत;

Desktop - Рабочий стол
Favorites - избранное

if GetShellFolderPath("Favorites")<>"\" then
s:= GetShellFolderPath("Favorites");



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

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

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.037 c
1-22074
Bb
2001-12-17 21:28
2002.01.08
मदद !!!!


6-22269
SERGX
2001-10-05 16:31
2002.01.08
कृपया स्रोत दें!


1-22207
Delphimun
2001-12-15 10:00
2002.01.08
कैसे एक exe में कई फ़ाइलों को संकलित करने के लिए


1-22078
डीजे एक्स
2001-12-15 16:11
2002.01.08
रूपांतरण, रजिस्ट्री, आईएनआई


14-22368
चालक दल में कटौती
2001-11-08 09:52
2002.01.08
इंटरनेट





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