; Eukalyptus
; http://www.autoit.de/index.php?page=Thread&postID=147502#post147502
#include "MemFont.au3"

Global $bFont
$sFile = @ScriptDir & '\Ethnocentric.ttf'
$hFile = FileOpen($sFile, 16)
$bFont = FileRead($hFile)
FileClose($hFile)


$hGui = GUICreate("Пример 1", 400, 120)
$tFont = DllStructCreate('byte[' & BinaryLen($bFont) & ']')
DllStructSetData($tFont, 1, $bFont)
$hFont = _WinAPI_AddFontMemResourceEx(DllStructGetPtr($tFont), DllStructGetSize($tFont))
GUICtrlCreateLabel("AutoIt Memory Font Example", 10, 10, 380, 100)
GUICtrlSetFont(-1, 20, 400, 0, "Ethnocentric")
GUISetState(@SW_SHOW)

While GUIGetMsg() <> -3
	Sleep(10)
WEnd

GUIDelete($hGui)
_WinAPI_RemoveFontMemResourceEx($hFont)