摘要: procedure TForm1.Button1Click(Sender: TObject); var FileOp : TOFStruct ; FHandle : THandle ; FInfo : TByHandleFileInformation ; dtCreate : TSystemTime; Temp:_FileTime; begin memo1.clear; ... 阅读全文
posted @ 2008-09-28 14:08 novel 阅读(1301) 评论(0) 推荐(0)