请教一个简单的问题，怎样取得一个文件的三个时间

Question

怎么用
BOOL GetFileTime(    HANDLE hFile, // identifies the file 
    LPFILETIME lpCreationTime, // address of creation time 
    LPFILETIME lpLastAccessTime, // address of last access time  
    LPFILETIME lpLastWriteTime  // address of last write time 
   ); 及读取其值

Answer 1

function OpenInfo(pszName : PChar; var pdate : TUSHORT;
 var ptime : TUSHORT; var pattribs : TUSHORT; err : PInteger;
 pv : Pointer): Integer; cdecl;
var
  Handle : Integer;
  TimeCreation : TFileTime;
  TimeDummy    : TFileTime;begin
  Handle := CreateFile(pszName,GENERIC_READ,0,Nil,OPEN_EXISTING,0,0);
  if Handle>0 then
  begin
    GetFileTime(Handle,@TimeCreation,@TimeDummy,@TimeDummy);
    FileTimeToDosDateTime(TimeCreation,Word(pdate),Word(ptime));
    CloseHandle(Handle);    Result := FCOpenFile(pszName,0,0,err,Nil);
  end
  else Result := -1;
end

Answer 2

TimeType:0,1,2// 分别获取文件创建,更改,最后访问时间..function TForm1.FGetFileTime(sFileName: string;
          TimeType: Integer): TDateTime;
var
   ffd:TWin32FindData;
   dft:DWord;
   lft,Time:TFileTime;
   H:THandle;
begin
     H:=Windows.FindFirstFile(PChar(sFileName),ffd);
     case  TimeType of
           0: Time:=ffd.ftCreationTime;
           1: Time:=ffd.ftLastWriteTime;
           2: Time:=ffd.ftLastAccessTime;
     end;     //获取文件信息
     if (H <> INVALID_HANDLE_VALUE) then
     begin
          //我们只查找一个文件，所以关掉"find"
          Windows.FindClose(H);
          //转换FILETIME格式成为local  FILETIME格式
          FileTimeToLocalFileTime(Time,lft);
          //转换FILETIME格式成为DOStime格式
          FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
          //最后，转换DOStime格式成为Delphi's应用的TdateTime格式
          Result:=FileDateToDateTime(dft);
     end
     else
         result:=0;
end;

Answer 3

我想问：怎样可以获得这样的文件的三个时间：ftp://xxxx/xxx/*.*