unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, scFontCombobox;

type
  TFrmImportFont = class(TForm)
    Label1: TLabel;
    cmbFont: TscFontComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmImportFont: TFrmImportFont;

implementation

{$R *.dfm}

   {
function TFrmImportFont.GetFontNameFromFile(f: PWideChar): String;
var
 dwLength: DWORD;
 hDll: THandle;
 GetFontResourceInfo: function(wzFontName: PWideChar; var
dwBufSiz: DWORD;
   wzBuffer: PWideChar; dwInfo: DWORD): DWORD; stdcall;
  wzFontInfo: array[0..MAX_PATH] of WideChar;
begin
 hDll := GetModuleHandle(gdi32);
  GetFontResourceInfo := GetProcAddress(hDll,'GetFontResourceInfoW');
  dwLength := SizeOf(wzFontInfo);
  GetFontResourceInfo(f, dwLength, wzFontInfo, 1);
  Result := wzFontInfo;
end;
   }
end.
