Путь к директории

← →
SONIC_gd (2004-12-17 18:05) [0]

Мне нужно скопировать шрифты в папку 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 18:45) [1]

> SONIC_gd (17.12.04 18:05)

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

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

← →
Sonic_gd (2004-12-17 21:18) [2]

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

← →
begin...end © (2004-12-17 21:25) [3]

> [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:47) [4]

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

← →
begin...end © (2004-12-17 21:49) [5]

> [4] Sonic_gd (17.12.04 21:47)

uses ShlObj

← →
Sonic_gd (2004-12-17 21:57) [6]

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

> [6] Sonic_gd (17.12.04 21:57)

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

Путь к директории Найти похожие ветки