NewsForumsCodeLogsGallerySpecsSearch

setting system variables

BlitzMax Forums/BlitzMax Beginners Area/setting system variables

pete03(Posted 2011) [#1]
Could someone tell me how I might set system date/time ( windows) using blitzmax ?


Zeke(Posted 2011) [#2]
Extern "win32"
	Function GetSystemTime(lpSystemTime:Byte Ptr)
	Function GetLocalTime(lpSystemTime:Byte Ptr)
	Function SetSystemTime(lpSystemTime:Byte Ptr)
	Function SetLocalTime(lpSystemTime:Byte Ptr)
End Extern

Type TSYSTEMTIME
	Field wYear:Short
	Field wMonth:Short
	Field wDayOfWeek:Short
	Field wDay:Short
	Field wHour:Short
	Field wMinute:Short
	Field wSecond:Short
	Field wMilliseconds:Short
End Type

Local time:TSYSTEMTIME = New TSYSTEMTIME

'GetSystemTime(time) 'CurrentTime
GetLocalTime(time)

Print time.wyear+"/"+time.wmonth+"/"+time.wday
Print time.wdayofweek
Print time.whour + ":" + time.wminute + ":" + time.wsecond + ":" + time.wmilliseconds

'Change time:
time.wyear = 2040
time.whour=1

'SetSystemTime(time) 'Change Current System Time
SetLocalTime(time)

'Check Modified SystemTime:
'GetSystemTime(time)
GetLocalTime(time)

Print time.wyear+"/"+time.wmonth+"/"+time.wday
Print time.wdayofweek
Print time.whour + ":" + time.wminute + ":" + time.wsecond + ":" + time.wmilliseconds


Last edited 2011


pete03(Posted 2011) [#3]
Hey many thanks for that.