如何设置系统时间？(50分)

R

Revenant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #1

请问我有一个时间变量（不含日期），现在要把系统时间设定为这个变量的值，
请问该怎么做？
谢谢！

 

H

houanl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #2

时间变量=formatdatetime('hh-ss',now)

 

M

mingliangzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #3

看看这样行不行：
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
s := formatDatetime('hh:mm:ss', now());
edit1.text := s;//s值为系统时间字符串;
end;

 

R

Revenant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

我说的是如何设置系统时间。不是时间格式。

 

A

awl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

调用API函数：SetSystemTime
var
systime : _SYSTEMTIME;
begin
systime.wHour := ;
systime.wMinute := ;
systime.wSecond := ;
SetSystemTime(systime);
end;

 

R

Revenant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #6

用SetSystemTime（systemtime);即可