怎么改系统时钟(0分)

1

14号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #1

; ;我有一个FORM上面可以填入我想改的系统的年、月、日、时、分、秒，但我不知道
怎么改系统时间，我找到一个AIP函数（SETSYSTEMTIME）但我不知道怎么用，那为高手
有办法，请帮我一下，不用SETSYSTEM不要紧，只要能改时间就行，谢谢！

 

1

14号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #2

; 大家帮我看一看吧

 

L

liu_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #3

如果你不给分，就不回答问题？
算了，还是回答你吧：
Var
; ; ;today:TdateTime;
; ; ;ServerTime : TSystemTime;
begin
; ; ;Today:=StrToDateTime('2001-12-31'); ; ; //你设置的时间
; ; ;DateTimeToSystemTime(today,ServerTime);
; ; ;SetLocalTime(ServerTime); ; ; ;//设置本机时间
end;

 

1

14号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #4

; 不好意思，我是没分了

 

L

liu_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #5

应该是可以用的，我想知道，如果没分了怎么办？

 

1

14号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #6

接受答案了.