Oasdflkajdlaksdjaslkdjsal dlkajsldk asdasdpa poa spod \[pasd  |\\ \ \ \as ds \ \s dd s/  / ds/ /  ds d\s ds\ ds \ds \d s\ ; на последнем /ds заканчивается область

String = Unilaya Pora O4ey O4arovanie

Gui, ToolTipWindow:New, -Caption +ToolWindow +LastFound
Gui, ToolTipWindow:Default
Gui, Font, s17 bold cBlue, Times New Roman
Gui, Margin, 0, 0
Gui, Color, 0xFFFFE1
Gui, Add, Text,, % String
Gui, Show, y100

WinGetPos,,, W, H
MsgBox, % "Ширина окна " W "`nВысота окна " H
Gui, Destroy

if dim := GetTextSize(String, "Times New Roman", "s17 bold")
   MsgBox, % "Ширина текста " . dim.w . "`nВысота текста " . dim.h
ExitApp

GetTextSize(String, FontName, Options)
{
   static SIZE
   coding := A_IsUnicode ? "W" : "A"
   LOGPIXELSY := 90
   FW_NORMAL := 400, FW_BOLD := 700
   DEFAULT_CHARSET := 1
   DEFAULT_QUALITY := OUT_DEFAULT_PRECIS := CLIP_DEFAULT_PRECIS := 0

   if !RegExMatch(Options, "i).*s(\d+).*", Found)
   {
      MsgBox, Не задан размер шрифта!
      Return
   }
   s := Found1

   if !InStr(Options, "bold")
   {
      if !RegExMatch(Options, "i).*w(\d+).*", Found)
         w := FW_NORMAL
      Else
         w := Found1
   }
   Else
      w := FW_BOLD
   if w not Between 1 and 1000
   {
      MsgBox, Неверно задан параметр w.`nДолжен быть в пределах от 1 до 1000
      Return
   }

   italic    := InStr(Options, "italic") > 0
   underline := InStr(Options, "underline") > 0
   strike    := InStr(Options, "strike") > 0

   hDC := DllCall("GetDC", UInt, 0, Ptr)

   nHeight := -DllCall("MulDiv", Int, s
                  , Int, DllCall("GetDeviceCaps", Ptr, hDC, Int, LOGPIXELSY), Int, 72)
   hFont := DllCall("CreateFont" . coding
                                , Int, nHeight, Int, 0
                                , Int, 0, Int, 0, Int, w
                                , UInt, italic, UInt, underline, UInt, strike
                                , UInt, DEFAULT_CHARSET, UInt, OUT_DEFAULT_PRECIS
                                , UInt, CLIP_DEFAULT_PRECIS, UInt, DEFAULT_QUALITY
                                , UInt, 0, Str, FontName, Ptr)

   hPrevObj := DllCall("SelectObject", Ptr, hDC, Ptr, hFont, Ptr)

   VarSetCapacity(Buf, 40)
   DllCall("GetTextFace" . coding, Ptr, hDC, Int, 40, Str, Buf)
   if (Buf != FontName)
   {
      FreeMemory(hPrevObj, hDC, hFont)
      MsgBox, Указанный шрифт не поддерживается системой!
      Return
   }

   VarSetCapacity(RC, 16, 0)
   height := DllCall("DrawText", Ptr, HDC, Str, String, Int, StrLen(String), Ptr, &RC, UInt, DT_CALCRECT := 0x400)
   width := NumGet(RC, 8, "Int") - NumGet(RC, "Int")
   FreeMemory(hPrevObj, hDC, hFont)
   Return {w: width, h: height}
}

FreeMemory(hPrevObj, hDC, hFont)
{
   DllCall("SelectObject", Ptr, hDC, Ptr, hPrevObj)
   DllCall("ReleaseDC", UInt, 0, Ptr, hDC)
   DllCall("DeleteObject", Ptr, hFont)
}

filePath := "D:\pic.png"
if oSize := _GetImageSize(filePath)
   MsgBox, % oSize.W . "`n" oSize.H

if oSize := GetImageSize(filePath)
   MsgBox, % oSize.W . "`n" oSize.H

_GetImageSize(imageFilePath)  {
   Gui, New
   Gui, Add, Pic, hwndhPic, % imageFilePath
   DetectHiddenWindows, On
   WinGetPos,,, PicW, PicH, ahk_id %hPic%
   Gui, Destroy
   Return { W: PicW, H: PicH }
}

GetImageSize(imageFilePath)  {
   if !hBitmap := LoadPicture(imageFilePath, "GDI+")  {
      MsgBox, Не удалось получить hBitmap
      Return
   }
   VarSetCapacity(BITMAP, size := 4*4 + A_PtrSize*2, 0)
   DllCall("GetObject", Ptr, hBitmap, Int, size, Ptr, &BITMAP)
   DllCall("DeleteObject", Ptr, hBitmap)
   Return { W: NumGet(BITMAP, 4, "UInt"), H: NumGet(BITMAP, 8, "UInt") }
}