---

function GetFontFolder : string;
var
pidl : PItemIDList;
path : array[0..MAX_PATH] of Char;
begin
Result := '';
if ShGetSpecialFolderLocation(0, CSIDL_FONTS, pidl) = NOERROR then
if ShGetPathFromIDList(pidl, path) then
Result := path;
end;

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.