function GetFontName(FontFileA: PChar): String;

  TGetFontResourceInfoW = function(FontPath: PWideChar; var BufSize: DWORD; FontName: PWideChar; dwFlags: DWORD):DWORD; stdcall;

  GetFontResourceInfoW: TGetFontResourceInfoW;

  FontFileW: PWideChar;

  FontNameW: PWideChar;

  FontFileWSize, FontNameSize: DWORD;

  Result:='';

  GetFontResourceInfoW:=GetProcAddress(GetModuleHandle('gdi32.dll'), 'GetFontResourceInfoW');

  if @GetFontResourceInfoW=nil then

   Exit;

  if AddFontResource(FontFileA)=0 then

   Exit;

  FontFileWSize:=(Length(FontFileA)+1)*2;

  GetMem(FontFileW, FontFileWSize);

  StringToWideChar(FontFileA, FontFileW, FontFileWSize);

  FontNameSize:=0;

  FontNameW:=nil;

  GetFontResourceInfoW(FontFileW, FontNameSize, FontNameW, 1);

  GetMem(FontNameW, FontNameSize);

  FontNameW^:=#0;

  GetFontResourceInfoW(FontFileW, FontNameSize, FontNameW, 1);

  Result:=FontNameW;

  FreeMem(FontFileW);

  FreeMem(FontNameW);

  RemoveFontResource(FontFileA);

end;

GetFontName('C:\MyFont.ttf');