如何将通过调用windowsAPI获取的文件时间转换成Delphi下的北京时间的Tdatetime类型。(275分)

K

kq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #1

; 我已经通过WindowsAPI获取了文件的修改时间，并且将它转换成了Delphi下的Tdatetime
类型，但是我通过datetimetostr过程发现它比我们北京时间少了8个小时。请问如何将它转
换成北京时间？

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #2

function SystemTimeToDateTime: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime do
Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;

 

乖

乖乖兔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #3

函数直接转换
var tt:integer;
dtime:TDateTime;
begin
tt:=FileAge(const FileName: string
dtime:=FiledateToDateTime(tt);
end;

 

乖

乖乖兔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #4

var tt:integer;
dtime:TDateTime;
begin
tt:=FileAge(FileName);
dtime:=FiledateToDateTime(tt);
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #5

多人接受答案了。