请问怎么取文件的创建时间和修改时间？

Question

API函数：GetFileTime
可以得到你想要的信息
FileTimeToSystemTime
将Tick计数转换为系统时间

Answer 1

对了。要先调用CreateFile获得文件句柄。呵呵，刚才忘记了

Answer 2

可以如下:
var
  ftime:FILETIME;
  sFindFileData :WIN32_FIND_DATA;
begin
  FindFirstFile(PChar('文件名'),sFindFileData);
  ftime:=sFindFileData.ftCreationTime;//创建
  ftime:=sFindFileData.ftLastWriteTime;//修改
  ftime:=sFindFileData.ftLastAccessTime;//访问
end;

Answer 3

//来个终结procedure TForm1.Button1Click(Sender: TObject);
var
  vSearchRec: TSearchRec;
  LocalFileTime: TFileTime;
  I: Integer;
begin
  if FindFirst('autoexec.bat', faAnyFile, vSearchRec) = 0 then  FileTimeToLocalFileTime(vSearchRec.FindData.ftCreationTime, LocalFileTime);
  FileTimeToDosDateTime(LocalFileTime, LongRec(I).Hi, LongRec(I).Lo);
  Memo1.Lines.Values['创建时间'] := DateTimeToStr(FileDateToDateTime(I));  FileTimeToLocalFileTime(vSearchRec.FindData.ftLastAccessTime, LocalFileTime);
  FileTimeToDosDateTime(LocalFileTime, LongRec(I).Hi, LongRec(I).Lo);
  Memo1.Lines.Values['访问时间'] := DateTimeToStr(FileDateToDateTime(I));  FileTimeToLocalFileTime(vSearchRec.FindData.ftLastWriteTime, LocalFileTime);
  FileTimeToDosDateTime(LocalFileTime, LongRec(I).Hi, LongRec(I).Lo);
  Memo1.Lines.Values['修改时间'] := DateTimeToStr(FileDateToDateTime(I));
  FindClose(vSearchRec);
end;

Answer 4

if FindFirst('autoexec.bat', faAnyFile, vSearchRec) = 0 then
//            ~~~~~~~~~~~~文件名