FontFile := "TEST.TTF"  ; указать путь к файлу со шрифтом
FontName := "WarfaceRegularEnglish"           ; указать имя шрифта из файла

if !DllCall("AddFontResourceEx", Str, FontFile, UInt, FR_PRIVATE := 0x10, Ptr, 0)
{
   MsgBox, % "Не удалось установить шрифт. Ошибка " . A_LastError
   return
}

SendMessage, WM_FONTCHANGE := 0x1D, 0, 0,, % "ahk_id" HWND_BROADCAST := 0xFFFF

Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop
Gui, Color, 0x0000FD
Gui, Font, s80 q3, % FontName
Gui, Add, Text, cRed, шестёрка бубей
WinSet, TransColor, 0x0000FD
Gui, Show
Return

Esc::ExitApp