Witam.
Szukam juz caly dzień, ale nie mogę znaleźć sposobu jak znaleźć ścieżkę do pliku czcionki znając jej nazwę(Screen.Fonts).
Witam.
Szukam juz caly dzień, ale nie mogę znaleźć sposobu jak znaleźć ścieżkę do pliku czcionki znając jej nazwę(Screen.Fonts).
http://4programmers.net/Forum/viewtopic.php?id=46647
heh...
uses ShlObj;
function GetFolderPath(Folder: Integer): string;
var
Path: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderPath(0, Path, Folder , False);
Result := Path;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sciezka : string;
begin
sciezka := GetFolderPath(CSIDL_FONTS) + '\' { + zmienna w której przechowujesz nazwę pliku czcionki};
end;
Dzięki, ale nie zrozumiałeś o co mi chodzi. Nie szukam katalogu gdzie Windows przechowuje fonty. Każdy program może załadować swoje czcionki dzięki funkcji winapi AddFontResources(FilePath: string). Załóżmy ze napotykasz czcionkę o nazwie "SuperFont" i ekstra wyglądzie. Czcionka nie znajduje sie w katalogu systemowym tylko załadował ja jakiś program. Chcesz się dowiedzieć w którym pliku na dysku jest ona przechowywana.
Jak na mój gust, to jest niewykonalne.
Może, ale tylko, może: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnprogwin/html/ch17-04.asp