GetLocalTime(SYSTEMTIME)

  1
  2
  3
  4
  5
  6
  7
  8
  9

#ifndef __MOD_GETLTIME_AS__
#const  __MOD_GETLTIME_AS__
#module "m_getlocaltime"
#define ctype getsystime(%1) (gettime(%1 + 1) << 16) + (gettime(%1))
#deffunc getlocaltime array v1
    v1 = getsystime(0), getsystime(2), getsystime(4), getsystime(6)
    return
#global
#endif  ; end of __MOD_GETLTIME_AS__

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11

#include "mod_getltime.as"
#uselib "kernel32.dll"
#func API_GetLocalTime "GetLocalTime" var
 
    dim systime, 4
    dim systime2, 4
    API_GetLocalTime systime
    getlocaltime systime2
    mes strf("%012I64x", systime)
    mes strf("%012I64x", systime2)
    stop