1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

if FileDateToDateTime(FileAge(work_filename)) <> FileDateToDateTime(FileAge(home_filename))

// and  ?????

 then
            begin
              erg := xmessagedlg('ArchivBit wurde gesetzt' +#13 +
                       'Soll    ' + work_filename + ' '+#13+ datetimetostr(filedatetodatetime(FileAge(work_filename))) +#13+
                       'durch '   + home_filename + ' '+#13+ datetimetostr(filedatetodatetime(FileAge(home_filename))) +#13+
                       ' ersetzt werden?', mtConfirmation, [mbYes, mbno, mbcancel], ['ja', 'nein', 'Abbrechen'], self.font);
                                                             //  ???
              case erg of mryes    : CopyFile(PChar(home_filename), PChar(work_filename), FALSE);
                          mrcancel : raus := true;
              end;
            end;                    

1:
2:
3:

if (FileDateToDateTime(FileAge(work_filename)) <> FileDateToDateTime(FileAge(home_filename))) and
                            (fileage(work_filename) + 3600 <> FileAge(home_filename)) and
                            (fileage(work_filename)        <> FileAge(home_filename) + 3600) then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

procedure BuildFileList(aSourceDir, aDestDir: string; aSource, aFiles:
  TStringList; aMaxFileAge: Integer); cdecl;
var                                             // Welche Units soll ich einbinden?
  sFileName, sSourceFileName: string;
  hSearch: THandle;
  rSourceFindData, rDestFindData: TWIN32FindData;
  ftCreationTime, ftLastWriteTime: TFileTime;
begin
  // einmal reicht ... muß ja nicht bei jeder Datei einzeln
  aSourceDir := IncludeTrailingPathDelimiter(aSourceDir);
  aDestDir := IncludeTrailingPathDelimiter(aDestDir);
  aFiles.BeginUpdate;
  try
    for sFileName in aSource do
    begin
      sSourceFileName := aSourceDir + sFileName;
      hSearch := FindFirstFile(PChar(sSourceFileName), rSourceFindData);
      Windows.FindClose(hSearch);
      if (hSearch = INVALID_HANDLE_VALUE)
          or (rSourceFindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) then
        Continue;
      hSearch := FindFirstFile(PChar(aDestDir + sFileName), rDestFindData);
      Windows.FindClose(hSearch);
      if hSearch = INVALID_HANDLE_VALUE then
      begin
        aFiles.Add(sSourceFileName);
        Continue;
      end;
      if aMaxFileAge = 0 then
      begin
        if UInt64(rSourceFindData.ftLastWriteTime) > UInt64(rDestFindData.ftLastWriteTime) then
          aFiles.Add(sSourceFileName);
      end
      else
      begin
        FileTimeToLocalFileTime(rSourceFindData.ftCreationTime, ftCreationTime);
        FileTimeToLocalFileTime(rSourceFindData.ftLastWriteTime, ftLastWriteTime);
        if (DaysBetween(FileTimeToDateTime(ftCreationTime), Date) <= aMaxFileAge)
            or (DaysBetween(FileTimeToDateTime(ftLastWriteTime), Date) <= aMaxFileAge) then
          aFiles.Add(sSourceFileName);
      end;
    end;
    aFiles.Sort;
  finally
    aFiles.EndUpdate;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

function GetFileTime(const FileName: string): TFileTime;
var
  SearchHandle: THandle;
  FindData: TWin32FindData;
begin
  Result.dwLowDateTime := 0;
  Result.dwHighDateTime := 0;
  SearchHandle := FindFirstFile(PChar(FileName), FindData);
  if SearchHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(SearchHandle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
      Result := FindData.ftLastWriteTime;
  end;
end;

function IsFileOlder(const AFileName, AReferenceFileName: string): Boolean;
var
  FileTime, ReferenceTime: TFileTime;
begin
  FileTime := GetFileTime(AFileName);
  ReferenceTime := GetFileTime(AReferenceFileName);
  Result := FileTime.dwHighDateTime < ReferenceTime.dwHighDateTime;
  if not Result then
    Result := (FileTime.dwLowDateTime < ReferenceTime.dwLowDateTime)
      and (FileTime.dwHighDateTime = ReferenceTime.dwHighDateTime);
end;

function IsFileOlderEx(const AFileName, AReferenceFileName: string;
  ADays: Int64 = 0; AHours: Int64 = 0; AMinutes: Int64 = 0; ASeconds: Int64 = 0): Boolean;
var
  AllowedDiff: Int64;
  DiffLow, DiffHigh: Cardinal;
  FileTime, ReferenceTime: TFileTime;
begin
  AllowedDiff := ((ADays * 24 + AHours) * 60 + AMinutes) * 60 + ASeconds;
  AllowedDiff := AllowedDiff * 10000000;
  DiffLow := AllowedDiff and $FFFFFFFF;
  DiffHigh := AllowedDiff shr 32;
  FileTime := GetFileTime(AFileName);
  ReferenceTime := GetFileTime(AReferenceFileName);
  Result := FileTime.dwHighDateTime + DiffHigh < ReferenceTime.dwHighDateTime;
  if not Result then
    Result := (FileTime.dwLowDateTime + DiffLow < ReferenceTime.dwLowDateTime)
      and (FileTime.dwHighDateTime + DiffHigh = ReferenceTime.dwHighDateTime);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var
  Search   : TSearchRec;
  Verz     : String;
  Liste    : TStringList;
  Schleife : integer;
begin
  Verz := 'L:\';
  Liste := TStringList.Create;
  try
    if FindFirst(Verz + '*.*', faAnyFile, Search) = 0 then
      try
        repeat
          if (Search.Attr and faArchive) = faArchive then
            Liste.Add(Verz + Search.Name);
        until
          FindNext(Search) <> 0;
      finally
        SysUtils.FindClose(Search);
      end;
    for Schleife := 0 to Liste.Count - 1 do
      begin
        // Hier könnte man die Datei umkopieren.
        FileSetAttr(Liste.Strings[Schleife],
          FileGetAttr(Liste.Strings[Schleife]) and not faArchive);
      end;
  finally
    Liste.Free;
  end;
  Label1.Caption := 'fertig';
end;