delphi编码获得文件修改的日期

时间:2010-02-03 12:46:46  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:t  OF_SHARE_DENY_NONE);  try    if h<>HFILE_ERRORthen    begin      lastwrite:=FileGetDate(h);      Result:= FileDateToDateTime(lastwrite);    end;   &...
  正文:function GetModifyDate(FileName:String):TDateTime;
var
h: THandle;
Struct: TOFSTRUCT;
lastwrite: integer;
t: TDateTime;
begin
  h:=OpenFile(PChar(FileName)
  Struct
  OF_SHARE_DENY_NONE);
  try
    if h<>HFILE_ERRORthen
    begin
      lastwrite:=FileGetDate(h);
      Result:= FileDateToDateTime(lastwrite);
    end;
    finally
      _lclose(h);
    end;
  end;
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    if Opendialog1.Execute then
    begin
      Label1.Caption:=FormatDateTime('dddd
d. mmmm yyyy hh:mm:ss'
      GetModifyDate(Opendialog1.FileName));
    end;
  end;
"delphi编码获得文件修改的日期"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12766.html


关键字:

关于《delphi编码获得文件修改的日期》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td