1. Delphi K.Top 討論區
  2. Win32 API 使用討論區(Delphi)
  3. 更改建立日期
全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數：1899
推到 Plurk!
推到 Facebook!

更改建立日期
答題得分者是：RaynorPao
s5633
一般會員


發表：22
回覆：35
積分：21
註冊：2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間：2002-12-12 15:52:59 IP:211.22.xxx.xxx 未訂閱
請問各位大大: 如何才能更改文件的建立日期? 3Q
william
版主


發表：66
回覆：2535
積分：3048
註冊：2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間：2002-12-12 15:59:36 IP:147.8.xxx.xxx 未訂閱
SetFileTime api?
P.D.
版主


發表：603
回覆：4038
積分：3874
註冊：2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間：2002-12-12 18:31:03 IP:61.66.xxx.xxx 未訂閱 
procedure SetFileDate(sFileName, sDate: string);
var
   fHandle: integer;
begin
   fHandle := FileOpen(sFileName, fmOpenWrite);
   try
      FileSetDate(fHandle, DateTimeToFileDate(StrToDateTime(trim(sDate))))
   finally
      FileClose(fHandle);
   end;
end;
s5633
一般會員


發表：22
回覆：35
積分：21
註冊：2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間：2002-12-13 09:35:10 IP:211.22.xxx.xxx 未訂閱
引言: 
procedure SetFileDate(sFileName, sDate: string);
var
   fHandle: integer;
begin
   fHandle := FileOpen(sFileName, fmOpenWrite);
   try
      FileSetDate(fHandle, DateTimeToFileDate(StrToDateTime(trim(sDate))))
   finally
      FileClose(fHandle);
   end;
end;
這改的是"存取日期" 謝謝P.D.
RaynorPao
版主


發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我
#5 引用回覆 回覆 發表時間：2002-12-13 09:45:31 IP:203.73.xxx.xxx 未訂閱
引言: 這改的是"存取日期"
s5633 你好: 以下是 Win32 API 的做法~~不妨參考看看 請查詢
------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --
william
版主


發表：66
回覆：2535
積分：3048
註冊：2002-07-11

發送簡訊給我
#6 引用回覆 回覆 發表時間：2002-12-13 10:09:30 IP:147.8.xxx.xxx 未訂閱 
var
    f: THandle;
    CTime,UTime : TFileTime;
    DOSFileTime : Cardinal;
begin
    DOSFileTime := DateTimeToFileDate(EncodeDate(2001,1,1));
    DosDateTimeToFileTime(LongRec(DOSFileTime).Hi,LongRec(DOSFileTime).Lo,CTime);
    LocalFileTimeToFileTime(CTime,UTime);
    f := FileOpen('c:\abc.txt',fmOpenReadWrite);
    try
        SetFileTime(f,@UTime,nil,nil);
    finally
        FileClose(f);
    end;
end;
You should add error checking...
s5633
一般會員


發表：22
回覆：35
積分：21
註冊：2002-04-15

發送簡訊給我
#7 引用回覆 回覆 發表時間：2002-12-13 10:42:58 IP:211.22.xxx.xxx 未訂閱
引言: 
var
    f: THandle;
    CTime,UTime : TFileTime;
    DOSFileTime : Cardinal;
begin
    DOSFileTime := DateTimeToFileDate(EncodeDate(2001,1,1));
    DosDateTimeToFileTime(LongRec(DOSFileTime).Hi,LongRec(DOSFileTime).Lo,CTime);
    LocalFileTimeToFileTime(CTime,UTime);
    f := FileOpen('c:\abc.txt',fmOpenReadWrite);
    try
        SetFileTime(f,@UTime,nil,nil);
    finally
        FileClose(f);
    end;
end;
You should add error checking... < face="Verdana, Arial, Helvetica"> 謝謝william 依你的方法已經可以了
P.D.
版主


發表：603
回覆：4038
積分：3874
註冊：2006-10-31

發送簡訊給我
#8 引用回覆 回覆 發表時間：2002-12-13 11:47:11 IP:61.66.xxx.xxx 未訂閱
我也學到了一招, 多謝啦!
系統時間：2024-05-06 17:06:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |