اسکریپت کپی فونت

[mehrdadb]

دوستان همانطور که می دونید اسکریپت زیر فونت مورد نظر رو در پوشه فونت ویندوز کپی میکنه:

destdir$ = '<Windows>\fonts'
dest$ = destdir$ + '\thefont.ttf'
source$ = '<Embedded>\thefont.ttf'
SysCommand("CopyFile","source$,dest$")

ولی وقتی فونت مورد نظر در سیتم نصب نباشه مشکلی نیست ولی اگر فونت مورد نظر نصب باشه برنامه پیغام زیر رو مده :
منظورم تصویر پیوسته.
حلا می خواستم بدونم چه جوری باید اسکریپت رو تغییر داد که چک کنه اگر فونت در سیتم نصب بود پیغام بالا رو ندهد و از نصب انصراف دهد.
با تشکر.

 

[naseronline]

با استفاده از دستور FileExist میتونی وجود فایل را بررسی کنی... بعد اگه نبود نصب کنی..مثل نمونه زیر..
FileExist("<Windows>\Fonts\ARIAL.TTF","exist")
If (exist=0) Then
InstallFont("<SrcDir>\ARIAL.TTF")
موفق باشی...

 

[Saman]

با اجازه آقا ناصر :

با استفاده از دستور FileExist ميتوني وجود فايل را بررسي کني... بعد اگه نبود نصب کني..مثل نمونه زير.

FileExist("<Windows>\Fonts\ARIAL.TTF","exist")
If (exist=0) Then
InstallFont("<SrcDir>\ARIAL.TTF")