Сканер виндовых шрифтов для  Blitz3D. Очень может помочь при разработке игровых приложений или виндовых-графических. Списком выводит все имеющиеся у вас шрифты в различном написании  (англ + рус в разном регистре), а рядом имя файла-название самого шрифта.
; Programming by CAESAR (www.caesararts.com)
; Сканирование русскоязычных шрифтов, очень полезный скрипт
Graphics 1024,768,32,2
SetBuffer BackBuffer()
folder$=GetEnv$("WINDIR")+"Fonts"; По умолчанию сканируются шрифты из папки ОС, можно ставить любую другую папку
myDir=ReadDir(folder$)
Repeat
If KeyHit(57) m=1-m
If m=1 Then
file$=NextFile$(myDir)
If (file$="") Or KeyHit(1) Then Exit
If FileType(folder$+""+file$) = 2 Then
ElseIf Upper$(Mid(file$,1,1))="B" Then
b=LoadFont (folder$+""+file$,25)
SetFont b
Print "FONTfont ШРИФТшрифт" +" "+file$
Print ""
FreeFont b
Delay 100EndIf

End If

EndIf
Forever

CloseDir myDir

(Visited 564 times, 1 visits today)