title image


Smiley Danke habe gefunden (Solution inside)
...

pIdL: PItemIDList;

Path: Array [0..Max_Path] Of Char;

Allocator : IMalloc;

begin





//Zuerst den Windows Font Path rausfinden

SHGetSpecialFolderLocation(0, CSIDL_FONTS, pidl);

// ItemIdList in String umwandeln lassen

SHGetPathFromIDList (pIDL, Path);



TrueTypeFile := Path+'\\'+TrueTypeFile;



// Speicher wieder freigeben

If Succeeded (SHGetMalloc (Allocator)) Then Begin

Allocator.Free (pIdL);

{$IFDEF VER100}

Allocator.Release;

{$ENDIF}

End;





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: