파일 생성일 대비 파일 삭제 procedure TMainForm.Button1Click(Sender: TObject); var aa : THandle; crFileTime: TFileTime; laFileTime: TFileTime; lwFileTime: TFileTime; lcFT : TFileTime; lc : Integer; Tf : TDateTime; Tc : TDateTime; Tw : TDateTime; Tn : TDateTime; i,j:integer; GapDate:String; TempStr : String; begin Memo1.Lines.Clear; FileExtSearch(ExtractFilePath(Application.ExeName), Memo1); GapDate := Edit1.Text ; if GapDa.. 더보기 이전 1 ··· 17 18 19 20 다음