फोरम: "सिस्टम";
वर्तमान संग्रह: 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