نقل قول نوشته شده توسط phantasm مشاهده تاپیک
برای اینکه ببینی فونت روی سیستم register شده یانه میتونی از کد زیر استفاده کنی:

procedure TForm1.Button1Click(Sender: TObject);

var

r:tregistry;

b:boolean;

v:tregdatainfo;

begin

  R := TRegistry.Create(KEY_READ);

  try

    R.RootKey := HKEY_LOCAL_MACHINE;

    R.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', False);

    b:=r.GetDataInfo('name of font',v);

  finally

    R.Free;

  end;

end;

name of font اسم فونت مورد نظره.متغیر b بر اساس اینکه true باشه یا false اون چیزی که میخوای نشون میده
این کد رو توی xp نوشتم و نمیدونم روی 98 درسته یا نه :oops:

باسلام
من براي نصب فونت اقدام نمودم اما از & ايراد و ERROR مي دهد لطفا راهنمايي فرماييد.متشكرم.