要怎样得到图片的‘创建时间’和‘最后被修改的时间’呢？？？？？？？

Question

大家来帮帮忙啊！

Answer 1

function GetFileLastAccessTime(sFileName:string;uFlag:byte):TDateTime;
var
  ffd:TWin32FindData;
  dft:DWord;
  lft:TFileTime;
  h:THandle;
begin
  h:=FindFirstFile(PChar(sFileName),ffd);
  if h<>INVALID_HANDLE_VALUE then
  begin
  case uFlag of
  1:FileTimeToLocalFileTime(ffd.ftCreationTime,lft);  //创建时间
  2:FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft); //最后被修改的时间
  3:FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);//最后访问的时间’
  else
    FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);
  end;
  FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
  Result:=FileDateToDateTime(dft);
  windows.FindClose(h);
  end
  else
  result:=0;
end;