با کد زیر برای نصب فونت در ویندوز ایکس پی مشکلی ندارم اما در ویندوز 7 فونت ها نصب نمی شوند چرا؟
از راهنمایی هایتان استفاده می کنم .
ممنون
از راهنمایی هایتان استفاده می کنم .
ممنون
InstallFont
("<Embedded>\BTitrBd.ttf")
source_path$='<Temp>\MMBPlayer\BTitrBd.ttf'
source_path$='<Temp>\MMBPlayer\BTitrBd.ttf'
final_path$=
'<Windows>\Fonts\BTitrBd.ttf'
FileExist
("<Windows>\Fonts\BTitrBd.ttf'","check")
If
(check=0) Then
SysCommand("CopyFile","source_path$,final_path$")
End