No Money No Honey

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(‘開啟檔案失敗’) […]