Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c