时间？如何得到？(25分)

我要取得一个文件的建立的时间或最后修改的时间，应该调用哪个函数？

利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。

function GetModifyDate(FileName:String):TDateTime;
var
h: THandle;
Struct: TOFSTRUCT;
lastwrite: integer;
t: TDateTime;
begin
h:=OpenFile(PChar(FileName),Struct,OF_SHARE_DENY_NONE);
try
if h<>HFILE_ERROR then
begin
lastwrite:=FileGetDate(h);
Result:= FileDateToDateTime(lastwrite);
end;
finally
_lclose(h);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
Label1.Caption:=FormatDateTime('dddd,d. mmmm yyyy hh:mm:ss',GetModifyDate(Opendialog1.FileName));
end;
end;

接受答案了.