Sciezka do pliku czcionki

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