获取图片实际尺寸

Gui,Add, Edit,xm ym ReadOnly r5 w300 vMyEdit,将文件拖入此窗口获取图片信息
Gui,Show, AutoSize,
return

GuiDropFiles:
	strPic = %A_GuiEvent%
	objImage := ComObjCreate("WIA.ImageFile")
	objImage.LoadFile(strPic)
	winw := objImage.Width/objImage.HorizontalResolution*2.54
	winh := objImage.Height/objImage.VerticalResolution*2.54
	SetFormat, float, 0.1
	Transform, winw, Round, winw,1
	Transform, winh, Round, winh,1
	winp := winw*winh/10000
	GuiControl,,MyEdit,文件：%A_GuiEvent%`n宽度：%winw%厘米`n高度：%winh%厘米`n平方：%winp%平方
	Gui,Show, AutoSize,
return
/*
objImage.Width                                            ;宽度
objImage.Height                                           ;高度
objImage.PixelDepth                                   ;位深度
objImage.VerticalResolution                      ;垂直分辨率
objImage.HorizontalResolution                 ;水平分辨率
*/