{"id":360,"date":"2010-10-11T18:14:39","date_gmt":"2010-10-11T10:14:39","guid":{"rendered":"http:\/\/blog.infinity.idv.tw\/index.php\/2010\/10\/11\/delphi%e4%b8%8b%e4%bd%bf%e7%94%a8filesetdate%e5%87%bd%e5%bc%8f%e4%bf%ae%e6%94%b9%e6%aa%94%e6%a1%88%e7%9a%84%e4%bf%ae%e6%94%b9%e6%97%a5%e6%9c%9f\/"},"modified":"2011-04-07T10:54:56","modified_gmt":"2011-04-07T02:54:56","slug":"delphi%e4%b8%8b%e4%bd%bf%e7%94%a8filesetdate%e5%87%bd%e5%bc%8f%e4%bf%ae%e6%94%b9%e6%aa%94%e6%a1%88%e7%9a%84%e4%bf%ae%e6%94%b9%e6%97%a5%e6%9c%9f","status":"publish","type":"post","link":"http:\/\/blog.infinity.idv.tw\/?p=360","title":{"rendered":"DELPHI\u4e0b\u4f7f\u7528FileSetDate()\u51fd\u5f0f\u4fee\u6539\u6a94\u6848\u7684”\u4fee\u6539\u65e5\u671f”"},"content":{"rendered":"

Delphi\u4e0b\u4f7f\u7528function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;\u51fd\u5f0f\u4fee\u6539\u6a94\u6848\u7684\u201d\u4fee\u6539\u65e5\u671f\u201d:<\/p>\n

\u53c3\u8003:http:\/\/delphi.ktop.com.tw\/board.php?cid=30&fid=70&tid=37667<\/a><\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
Var
    FileHandle : Integer;
    Str : String;
begin
    FileHandle := FileOpen(‘D:\\prog\\1.txt’, fmOpenReadWrite);
    if FileHandle = -1 then
      ShowMessage(‘\u958b\u555f\u6a94\u6848\u5931\u6557’)
    else
    begin
      Str := ‘\u6a94\u6848\u539f\u4f86\u65e5\u671f\u6642\u9593: ‘+ DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)))+#10#13;
      if FileSetDate(FileHandle, FileAge(‘D:\\prog\\AMS.exe’)) = 0 then
        Str := Str+DateTimeToStr(FileDateToDateTime(FileAge(‘D:\\prog\\AMS.exe’)))
      else
        Str := Str+’\u65b0\u7684\u65e5\u671f\u6642\u9593\u8a2d\u5b9a\u5931\u6557’;
      ShowMessage(Str);
    end;
    FileClose(FileHandle);
end;<\/p>\n","protected":false},"excerpt":{"rendered":"

Delphi\u4e0b\u4f7f\u7528function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;\u51fd\u5f0f\u4fee\u6539\u6a94\u6848\u7684\u201d\u4fee\u6539\u65e5\u671f\u201d:<\/p>\n

\u53c3\u8003:http:\/\/delphi.ktop.com.tw\/board.php?cid=30&fid=70&tid=37667<\/p>\n

procedure TForm1.Button1Click(Sender: TObject); Var     FileHandle : Integer;     Str : String; begin     FileHandle := FileOpen(‘D:\\prog\\1.txt’, fmOpenReadWrite);     if FileHandle = -1 then       ShowMessage(‘\u958b\u555f\u6a94\u6848\u5931\u6557’) […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[336],"_links":{"self":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/360"}],"collection":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=360"}],"version-history":[{"count":2,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/360\/revisions"}],"predecessor-version":[{"id":561,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=\/wp\/v2\/posts\/360\/revisions\/561"}],"wp:attachment":[{"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=360"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=360"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.infinity.idv.tw\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=360"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}