Here is another way that we have done this.. It is not as eloqent as Lonk's version, but is servicable..

 Code:
 FONT('3of9.ttf','3 of 9 Barcode (TrueType)') ;INSTALL FONT


The UDF is:
 Code:
 ; --  INSTALL FONT - ALL
 FUNCTION font($font,$description)
    DIM $rc
    IF COMPAREFILETIMES(@ldrive+'\Programs\'+$font,'%windir%\fonts\'+$font)
       COPY @ldrive+'\Programs\'+$font '%windir%\fonts'
       $rc=WRITEVALUE('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts',$description,$font,'REG_SZ')
    ENDIF
 ENDFUNCTION


Thanks,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's