@АнтонСол

Народ! Помогите кто может! Если вам не сложно! Допишите пожалуйста комментарии по коду программы, какие действия выполняет именно каждая строчка, что делают процедуры и функции.
Срочно надо.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, Registry,DateUtils;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Dir, EndDir: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Path: string;
begin
if SelectDirectory('Выберите папку','C:\Users\1\.borland\',Path) then Edit1.Text:= Path;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
Path: string;
begin
if SelectDirectory('Выберите папку','C:\Users\1\.borland\',Path) then Edit2.Text:= Path;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
SR: TSearchRec;
I: Integer;
inf: TDAtetime;
begin
Dir := IncludeTrailingBackslash(Dir);
EndDir := IncludeTrailingBackslash(EndDir);
if not DirectoryExists(Dir) then // если папка отсутствует - выходим
Exit;
if not DirectoryExists(EndDir) then // то же
Exit;
I := FindFirst(Dir + '*', faAnyFile, SR);// начинаем перебирать файлы
Application.ProcessMessages;
try
while I = 0 do
begin
if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
begin
try
inf:= FileDateToDateTime(FileAge(Dir + SR.Name));//находим дату изменения
except
continue;
end;
if DaysBetween(Date,inf)>= 1 then //находим разность текущей даты и даты файла
begin
//перемещаем файл в новую папку
CopyFile(PChar(Dir + SR.Name),PChar(EndDir + SR.Name), False);
DeleteFile(Dir + SR.Name); //удаляем из старой
end;
end;
I := FindNext(SR);
end;
finally
FindClose(SR);
end;

end;

end.

0