בית
Top.Mail.Ru Yandeks.Metrika
פורום: "מערכת";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

מועדפים של Windows מצא סניפים דומים


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

שלום אדונים! אנא ענה על שאלה כזו - כיצד לגלות היכן יש למשתמש במחשב את זאינסטלין וינדה והשפה שלה (רוסית או אנגלית), או ליתר דיוק, כיצד לגלות היכן נמצאת תיקיית המועדפים? תודה מראש!



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

כל תיקיות המערכת.

הליך TForm1.FormCreate (שולח: TObject);
היה
reg: TRegistry;
ts: TStrings;
i: מספר שלם;
להתחיל
reg: = TREGistry ליצור;
reg.RootKey: = HKEY_CURRENT_USER;
reg.LazyWrite: = false;
reg.OpenKey ("תוכנה \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Shell Folders", שקר);
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]

בספר "דלפי 3.0 לכולם" (Fedorov A.G., עורכת "ComputerPress", 1998), בחלק "איך להכין מתקין" מצאתי את הקוד הבא:
היה
SPath: מערך [0..MAX_Path-1] של Char;
נתיב: מחרוזת;
..............
להתחיל
// עבודת הכנה: אנו מוצאים את הספרייה בה היא נמצאת
// חלונות, ויצרו את המסלול לספריית WINDOWS / DESKTOP, שם
// קיצורי דרך לאחסון המוצגים בסביבת העבודה

GetWindowsDirectory (sPath, MAX_PATH);
נתיב: = StrPas (sPath);
נתיב: = נתיב + "\ DESKTOP \";
.............

הנה הקוד.



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

תודה, בוריסוב אלכסנדר!



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

ועוד משהו ... רק באמצעות api ...
פונקציה GetWinDir: מחרוזת;
היה
Buf: מערך [0..MAX_PATH] של Char;
להתחיל
GetWindowsDirectory (@ Buf [0], MAX_PATH + 1);
תוצאה: = PChar (@Buf [0]);
אם התוצאה <> "" אז
אם תוצאה [אורך (תוצאה)] <> "\" אז
תוצאה: = תוצאה + "\";
הסוף;

פונקציה GetSysDir: מחרוזת;
היה
Buf: מערך [0..MAX_PATH] של Char;
להתחיל
GetSystemDirectory (@ Buf [0], MAX_PATH + 1);
תוצאה: = PChar (@Buf [0]);
אם התוצאה <> "" אז
אם תוצאה [אורך (תוצאה)] <> "\" אז
תוצאה: = תוצאה + "\";
הסוף;

פונקציה GetTempDir: מחרוזת;
היה
Buf: מערך [0..MAX_PATH] של Char;
להתחיל
Windows.GetTempPath (MAX_PATH + 1, @ Buf [0]);
תוצאה: = PChar (@Buf [0]);
אם התוצאה <> "" אז
אם תוצאה [אורך (תוצאה)] <> "\" אז
תוצאה: = תוצאה + "\";
הסוף;

פונקציה ReadRegStr (RootKey: HKey; SubKey, Value: String): String;
היה
C: מערך [0..254] of Char;
T, S: DWORD;
K: HKEY;
להתחיל
תוצאה: = "";
T: = REG_SZ;
S: = SizeOf (c);
אם RegOpenKeyEx (RootKey, PChar (SubKey), 0, KEY_READ, K) = ERROR_SUCCESS ואז
אם RegQueryValueEx (K, PChar (ערך), אפס, @ T, @ C, @ S) = ERROR_SUCCESS אז
תוצאה: = C;
RegCloseKey (K);
הסוף;

פונקציה GetShellFolderPath (const שם: מחרוזת): מחרוזת;
היה
S: חוט;
להתחיל
S: = ReadRegStr (HKEY_CURRENT_USER, "תוכנה \ Microsoft \ Windows \ Windows \ CurrentVersion \ Explorer \ Shell תיקיות", שם);
תוצאה: = s + "\";
הסוף;

שולחן עבודה - שולחן עבודה
מועדפים - מועדפים

אם GetShellFolderPath ("מועדפים") <> "\" אז
s: = GetShellFolderPath ("מועדפים");



עמודים: 1 ענף שלם

פורום: "מערכת";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.57 MB
זמן: 0.025 c
1-22246
Andrey196
2001-12-16 22:03
2002.01.08
כיצד ליצור סמן צבע בעורך Borland Image


3-21989
בוריס
2001-12-06 15:50
2002.01.08
בעת כתיבת שאילתה ב- TQuery, כל הרשומות נטענות.


1-22025
- = DeD = -
2001-12-18 11:20
2002.01.08
התקנת ActiveX


1-22235
DDDeN
2001-12-17 06:47
2002.01.08
שומר מסך


4-22494
Garryfv
2001-11-05 12:35
2002.01.08
הדפסה גרפית קשה





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский