![]() |
|
12 פיט - יפלד | |
![]() |
|
ישאר דומע | םיפיטה דומע | רנק ודיע תאמ |
![]() |
היירפסה יחכונה בשחמב לבא ,תיחכונה תונולח תסרג תנקתומ היירפס הזיאב תעדל הצור התא ...תמייק אל WINDOWS ? םישוע המ זא :הז ליבשב API תויצקנופ 3 שי תנקתומ איה הבש תונולח תיירפס <- GetWindowsDirectory תונולח לש תכרעמה תיירפס <- GetSystemDirectory .בשחמה לש םיינמזה םיצבקה תא הליכמה היירפס <- GetTempPath ?!? הז ליבשב היצקנופ לכב שמתשהל ךיא .C תפשב הבתכנ תונולחש רוכזל םיכירצ ונחנא ,הזל םיעיגמ ונחנאש ינפל ,תזורחמ גוסמ הנתשמ הזכ רבד ןיא (דבוע יפלד הב הפשה) לקספ תפשל דוגינב C תפשל ,םיוות לש עיבצמ אוה אלא (לקספ לש תזורחמה ומכ) םיוות ךרעמ אל אוה רשא ,יוות אוהש הנתשמ שי אלא .(NULL) ספא ASCII-ה ךרעב רמגנ עיבצמה רשאכ .Null Terminated String :םשב "תזורחמ" לש הזכ גוסל םיארוק ,תיעוצקמה הפשב .קיר וא NULL כ רדגומ אוה 0 יקסאש ללגב ,םיוות לש הזכ גוסב ןכ םג ךומתל הליחתה הפשה ,(דנלרוב תרבח לש לקספ וברוט תסרג) 7 לקספמ .תטלוש ןיידע הליגרה תזורחמה יכ םא :תויצקנופב שומישל וישכע בוט function WindowsDirectory : string; var aryWindowsDir: Array[0..MAX_PATH] of Char; begin GetWindowsDirectory(aryWindowsDir,SizeOf(aryWindowsDir)); result := StrPas(aryWindowsDir); end; function SystemDirectory : string; var arySystemDir: Array[0..MAX_PATH] of Char; begin GetSystemDirectory(arySystemDir,SizeOf(arySystemDir)); result := StrPas(arySystemDir); end; function GetTempDirectory : string; var aryTempDir: Array[0..MAX_PATH] of Char; begin GetTempPath(SizeOf(aryTempDir),aryTempDir); result := StrPas(aryTempDir); end; |