filePath := "D:\Images\MyPicture.jpg"
if size := GetImageSize(filePath)
   MsgBox, % size.W . "`n" size.H

GetImageSize(imageFilePath) {
   if !hBitmap := LoadPicture(imageFilePath, "GDI+") {
      MsgBox, Failed to load the image
      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") }
}

filePath := "D:\Images\MyPicture.jpg"
oSize := GetImageSize(filePath)
MsgBox, % oSize.W . "`n" oSize.H
ExitApp

GetImageSize(imageFilePath)  {
   Gui, New
   Gui, Add, Pic,, % imageFilePath
   GuiControlGet, Pic, Pos, Static1
   Gui, Destroy
   Return { W: PicW, H: PicH }
}

Path := "C:\0.jpg"	; Путь к картинке (в кавычках)
Return


F2::
; Получить в переменную Info информацию в виде словаря W и H
Info := Img_Size(Path)	

; Отобразить содержимое словаря: Info.W и Info.H
ToolTip, % "Ширина: " . Info.W . "`nВысота: " . Info.H
Return



;Возвращает w,h картинки, принимает путь к файлу (в кавычках)	[Malcev]
;http://forum.script-coding.com/viewtopic.php?id=13846
Img_Size(File)
{
 pToken := Gdip_StartUp()
 pBitmap := Gdip_CreateBitmapFromFile(File)
; pBitmap := Gdip_CreateBitmapFromFile("c:\myImage.jpg")
 Gdip_GetImageDimensions(pBitmap, w, h)
 Gdip_DisposeImage(pBitmap)
 Gdip_ShutDown(pToken)
; MsgBox, % "Width: " w " Height: " h
 Return { W: W, H: H }
}