小问题：如何获取文件的创建时间、修改时间、作者等选项？在线等

Question

同上

Answer 1

The GetFileTime function retrieves the date and time that a file was created, last accessed, and last modified.

Answer 2

to goodtime7702(李东宝:
thank you,but what function could be haven [writor] even more other infomation ?

Answer 3

function CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;
有了上面的函数支持，我们就可以获取一个文件的时间信息了。以下是一个简单的例子：
procdeure GetFileTime(const Tf:string);
{ 获取文件时间，Tf表示目标文件路径和名称 }
const
Model=yyyy/mm/dd,hh:mm:ss; { 设定时间格式 }
var
Tp:TSearchRec; { 申明Tp为一个查找记录 }
T1,T2,T3:string;
begin
FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 } T1:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftCreationTime)));
{ 返回文件的创建时间 }
T2:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftLastWriteTime)));
{ 返回文件的修改时间 }
T3:=FormatDateTime(Model,Now));
{ 返回文件的当前访问时间 }
FindClose(Tp);
end;

Answer 4

TO  shmilyjiujiu(啾啾)：function CovFileDate(Fd:_FileTime):TDateTime;DELPHI该如何识别_FileTime，还要做什么设置吗？

Answer 5

不用。
_FILETIME = record
    dwLowDateTime: DWORD;
    dwHighDateTime: DWORD;
  end;

Answer 6

shmilyjiujiu(啾啾)谢谢你的帮助。难道真的无法获取作者吗？我手上现在苦于没有SDK函数集，唉

Answer 7

procedure TForm1.Button1Click (Sender TOject);
var
  filename:string;
  sei:TShellExecuteInfo;
begin
  if opendialog.execute then
  begin
    filename:=opendialog1.filename;
    fillchar(sei,sizeof(sei),#0);
    sei.cbsize:=Sizeof(sei);
    sei.lpfile:=pchar(filename);
    sei.lpverb:='properties';
    sei.fmask:=see_mask_invokeidlist;
    shellexecuteex(@sei);
end;
end;

Answer 8

procedure TForm1.Button1Click (Sender TOject);
var
  filename:string;
  sei:TShellExecuteInfo;
begin
  if opendialog.execute then
  begin
    filename:=opendialog1.filename;
    fillchar(sei,sizeof(sei),#0);
    sei.cbsize:=Sizeof(sei);
    sei.lpfile:=pchar(filename);
    sei.lpverb:='properties';
    sei.fmask:=see_mask_invokeidlist;
    shellexecuteex(@sei);
end;
end;

Answer 9

procedure TForm1.Button1Click (Sender TOject);
var
  filename:string;
  sei:TShellExecuteInfo;
begin
  if opendialog.execute then
  begin
    filename:=opendialog1.filename;
    fillchar(sei,sizeof(sei),#0);
    sei.cbsize:=Sizeof(sei);
    sei.lpfile:=pchar(filename);
    sei.lpverb:='properties';
    sei.fmask:=see_mask_invokeidlist;
    shellexecuteex(@sei);
end;
end;
这段有什么用啊？如何获取作者呢？

Answer 10

http://expert.csdn.net/Expert/topic/2340/2340415.xml?temp=.9969141