請問各位大大 我想要讀取C:\Delphi\Project1.exe 的建檔日期與修改日期 之後在秀出此訊息該如何寫 謝謝!!

------
Xax

你好，站内有很多相关的信息了，可自行查找[修改時間] http://delphi.ktop.com.tw/topic.php?topic_id=56837 http://delphi.ktop.com.tw/topic.php?topic_id=28921 http://delphi.ktop.com.tw/topic.php?topic_id=35878 转pcboy2 兄：

function GetFileDate(const FileName: string; out Creation, LastAccess,      LastWrite: TDateTime): Boolean;    var      hFile: THandle;      ftCreationUTC, ftLastAccessUTC, ftLastWriteUTC: TFileTime;      ftCreationLocal, ftLastAccessLocal, ftLastWriteLocal: TFileTime;      stCreationLocal, stLastAccessLocal, stLastWriteLocal: TSystemTime;    begin      result:=false;      hFile := CreateFile(PChar(FileName), GENERIC_READ, 0, nil,      OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);      if (hFile <> INVALID_HANDLE_VALUE) then begin        try          if GetFileTime(hFile, @ftCreationUTC, @ftLastAccessUTC, @ftLastWriteUTC) then begin            if FileTimeToLocalFileTime(ftCreationUTC, ftCreationLocal)            and FileTimeToLocalFileTime(ftLastAccessUTC, ftLastAccessLocal)            and FileTimeToLocalFileTime(ftLastWriteUTC, ftLastWriteLocal) then begin              if FileTimeToSystemTime(ftCreationLocal, stCreationLocal)              and FileTimeToSystemTime(ftLastAccessLocal, stLastAccessLocal)              and FileTimeToSystemTime(ftLastWriteLocal, stLastWriteLocal) then begin                Creation := SystemTimeToDateTime(stCreationLocal);                LastAccess := SystemTimeToDateTime(stLastAccessLocal);                LastWrite := SystemTimeToDateTime(stLastWriteLocal);                result:=true;              end;            end;          end;        finally          CloseHandle(hFile);        end;      end;    end;        procedure TForm1.Button5Click(Sender: TObject);
var
  creation, lastaccess, lastwrite: TDateTime;
begin
  if OpenDialog1.Execute then
  GetFileDate(OpenDialog1.FileName, creation, lastaccess, lastwrite);      ShowMessage('建立时间: ' DateTimeToStr(creation) #13#10 '访问时间: '       DateTimeToStr(lastaccess) #13#10 '修改时间: ' DateTimeToStr(lastwrite));
end;

拉一个openDialog,button至窗体即可。 ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================