AkelPad

Code: Select all

//! FROM WinNT.h
//! Typical values for first param of GetDateFormat and GetDateFormat syscalls
//! (or specified locale value. see MAKELCID define)
var LOCALE_USER_DEFAULT = 1024;
var LOCALE_SYSTEM_DEFAULT = 2048;
var LOCALE_INVARIANT = 127;

//! FROM WinNLS.h
// Date Flags for GetDateFormat(SECOND PARAM)
var DATE_SHORTDATE        =   0x00000001  // use short date picture
var DATE_LONGDATE         =   0x00000002  // use long date picture
var DATE_USE_ALT_CALENDAR =   0x00000004  // use alternate calendar (if any)
//! Only for >=Windows 2000
var DATE_YEARMONTH  = 0x00000008  // use year month picture
var DATE_LTRREADING = 0x00000010  // add marks for left to right reading order layout
var DATE_RTLREADING = 0x00000020  // add marks for right to left reading order layout
//!
// Time Flags for GetTimeFormat(SECOND PARAM)
var TIME_NOMINUTESORSECONDS = 0x00000001  // do not use minutes or seconds
var TIME_NOSECONDS          = 0x00000002  // do not use seconds
var TIME_NOTIMEMARKER       = 0x00000004  // do not use time marker
var TIME_FORCE24HOURFORMAT  = 0x00000008  // always use 24 hour format
// Date/Time Flags for both GetTimeFormat and GetDateFormat(SECOND PARAM) (OR-ed)
var LOCALE_NOUSEROVERRIDE = 0x80000000;
var LOCALE_USE_CP_ACP     = 0x40000000;

var oSys = AkelPad.SystemFunction();
var lpstr = AkelPad.MemAlloc(256*_TSIZE);
AkelPad.MemCopy(lpstr, "", _TSTR);
var systime = AkelPad.MemAlloc(16 /*sizeof_SYSTEMTIME*/);
oSys.Call("kernel32::GetSystemTime", systime);
oSys.Call("kernel32::GetDateFormat"+_TCHAR,
			LOCALE_USER_DEFAULT,
			DATE_SHORTDATE,
			systime,
			0,
			lpstr,255);
var str = AkelPad.MemRead(lpstr, _TSTR);
AkelPad.MessageBox(0, str, "GetDateFormat"+_TCHAR, 0 /*MB_OK*/);
oSys.Call("kernel32::GetTimeFormat"+_TCHAR,
			LOCALE_USER_DEFAULT,
			TIME_FORCE24HOURFORMAT,
			systime,
			0,
			lpstr,255);
str = AkelPad.MemRead(lpstr, _TSTR);
AkelPad.MessageBox(0, str, "GetTimeFormat"+_TCHAR, 0 /*MB_OK*/);

AkelPad.MemFree(systime);
AkelPad.MemFree(lpstr);