Delphi下使用function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;函式修改檔案的”修改日期”:

參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667

procedure TForm1.Button1Click(Sender: TObject);
Var
    FileHandle : Integer;
    Str : String;
begin
    FileHandle := FileOpen('D:\prog\1.txt', fmOpenReadWrite);
    if FileHandle = -1 then
      ShowMessage('開啟檔案失敗')
    else
    begin
      Str := '檔案原來日期時間: '+ 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+'新的日期時間設定失敗';
      ShowMessage(Str);
    end;
    FileClose(FileHandle);
end;

創作者介紹
創作者 No Money No Hone 的頭像
No Money No Hone

No Money No Honey

No Money No Hone 發表在 痞客邦 留言(0) 人氣()