请告知改系统日期的方法？(20分)

陈

陈新龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #1

 

C

churchill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #2

调用API: SetSystemTime

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #3

Setlocaltime函数

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #4

var yourtime:Tsystemtime;
begin
with yourtime do
begin
wyear:=1999;
wmonth:=12;
wday:=1;
whour:=0;
wminute:=0;
wsecond:=0

end;
setsystemtime(yourtime);
end;

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #5

我看陈新龙的意思应该用setlocaltime
然后用getlocaltime去取时间
按照小天的方法,getlocaltime会得到8:0:0
计算机的系统时钟也会成为8:0:0,尽管你的本意是相设为0:0:0

 

B

bluebird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #6

BOOL SetSystemTime(

CONST SYSTEMTIME *lpSystemTime // address of system time to set
);

typedef struct _SYSTEMTIME { // st
WORD wYear

WORD wMonth

WORD wDayOfWeek

WORD wDay

WORD wHour

WORD wMinute

WORD wSecond

WORD wMilliseconds

} SYSTEMTIME

 

U

urus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-17

• #7

设置时间还有时区问题
procudure settime(time:Tdatetime);
var newtime : Tsystemtime;
Hour,Min,Sec,Msec : Word;
date : Tdate;
begin
DecodeTime(Time,Hour,Min,Sec,Msec);
If Hour<8 then
Hour:=16+Hour
else
Hour:=Hour-8;
Time:=Encodetime(Hour,Min,Sec,Msec);
DateTimeToSystemTime(time,newtime);
SetSystemTime(Newtime);
end

 

陈

陈新龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-18

• #8

多人接受答案了。