AutoHotkey Community

Code: Select all

MsgBox % A_AhkBuildDate("1.1.32.00")
A_AhkBuildDate(build){
  whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  whr.Open("GET", "https://github.com/Lexikos/AutoHotkey_L/releases/tag/v" build, true)
  whr.Send()
  whr.WaitForResponse()
  if RegExMatch(whr.ResponseText,"m)relative-time datetime=""([^""]+)""",builddate)
    Return SubStr(builddate1,1,10)
  else return 0
}

Code: Select all

MsgBox % PEDT(A_AhkPath)

PEDT(PEfile) { ; returns build date for Exe/Dll files                                  
Local File, DT:=1970 
  File := FileOpen(PEfile,"r")
  If ! IsObject(File)
      Return
  If ( File.ReadUSHORT()<>0x5A4D )                 ; Is IMAGE_DOS_HEADER.e_magic = 'MZ'?
      Return File.Close() + ""
  File.Seek(60,0)                                  ; Seek IMAGE_DOS_HEADER.e_lfanew 
  File.Seek(File.ReadUINT(),0)                     ; Seek IMAGE_NT_HEADERS
  If ( File.ReadUINT()<>0x00004550 )               ; Is IMAGE_NT_HEADERS.Signature = 'PE'?
      Return File.Close() + ""
  File.Seek(4,1)                                   ; Seek IMAGE_FILE_HEADER.TimeDateStamp
  DT += File.ReadUINT(), S                         ; 
  File.Close()
Return DT
}

Code: Select all

MsgBox % GLMT(A_AhkPath)

GLMT(p)
{
VarSetCapacity(r, 40, 32)		; 19 Unicode chars + NULL
VarSetCapacity(buf, 36, 0)		; WIN32_FILE_ATTRIBUTE_DATA struct
VarSetCapacity(tu, 16, 0)		; SYSTEMTIME struct
if !DllCall("GetFileAttributesEx", "Str", p, "UInt", 0, "Ptr", &buf)
	return "Error 1"
if !DllCall("FileTimeToSystemTime", "Ptr", &buf+20, "Ptr", &tu)
	return "Error 2"
if !DllCall("msvcrt\sprintf"
	, "AStr", r
	, "AStr", "%02d.%02d.%04d %02d:%02d:%02d"
	, "UShort", NumGet(tu, 6, "UShort")	; day
	, "UShort", NumGet(tu, 2, "UShort")	; month
	, "UShort", NumGet(tu, 0, "UShort")	; year
	, "UShort", NumGet(tu, 8, "UShort")	; hour
	, "UShort", NumGet(tu, 10, "UShort")	; minutes
	, "UShort", NumGet(tu, 12, "UShort")	; seconds
	, "CDecl")
	return "Error 3"
return r
}