| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Путь к директории [D7, WinXP]

SONIC_gd ©   (2004-12-17 18:05:00) 

Мне нужно скопировать шрифты в папку Windows/Font.
Я получаю путь к Windows:
var Windir : AnsiString;
 WindirP ,i: PChar;
 Res:integer;

begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP);
А как мне теперь полчить путь к папке Windows/Font?

---

begin...end   (2004-12-17 21:58:00) [1]

> [6] Sonic_gd   (17.12.04 21:57)

PAnsiChar(Str), где Str: String.

---

Sonic_gd   (2004-12-17 21:57:00) [2]

А как String перевести в PansiChar?

---

begin...end   (2004-12-17 21:49:00) [3]

> [4] Sonic_gd   (17.12.04 21:47)

uses ShlObj

---

Sonic_gd   (2004-12-17 21:47:00) [4]

Он мне ошибок навыдавал! Там нужно что-нить в приписать ещё? В uses например.

---

begin...end   (2004-12-17 21:25:00) [5]

> [2] Sonic_gd   (17.12.04 21:18)

var
 List: pItemIDList;
 Path: array [0..MAX_PATH] of Char;
 
begin
 SHGetSpecialFolderLocation(0, CSIDL_FONTS, List);
 if SHGetPathFromIDList(List, Path) then
   ShowMessage(String(Path))
end.

---

Sonic_gd   (2004-12-17 21:18:00) [6]

А можно поподробнее, а то у меня нет времени смотреть где-то ещё. Просто пример.

---

begin...end   (2004-12-17 18:45:00) [7]

> SONIC_gd   (17.12.04 18:05)

> А как мне теперь полчить путь к папке Windows/Font?

См. в справке по WinAPI функцию SHGetSpecialFolderLocation (с параметром CSIDL_FONTS) и SHGetPathFromIDList.

---

Наверх