Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
ВнизПуть к директории Найти похожие ветки
← →
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?
← →
begin...end © (2004-12-17 21:58) [7]> [6] Sonic_gd (17.12.04 21:57)
PAnsiChar(Str), где Str: String.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.129 c