Как проверить изменялся ли файл

[NeiL]

Вообщем-то не стал заморачиваться с API и поиском готовых алгоритмов, а сделал по своему:

unit UTest;

interface

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

const
  const_msg_FileNotFound       = 'Файл "%s" не найден';
  const_msg_FileModifyed       = 'Файл "%s" был изменен другой программой. Перезагрузить заново?';
  const_msg_ImageFileCorrupted = 'Файл "%s" поврежден или не является изображением';

type

  TFileChangesMonitor = class
  private
    FFileName: string;
    FMsg: Boolean; { Показывать диалог о перезаписи файла }
    FOldFileAge: Integer;
    { ... }
  public
    procedure ApplicationActivate(Sender: TObject);
    procedure HookFileChanges(FileName: string);
    procedure ReloadLocalFile(FileName: string);
    { ... }
  end;

  Tform_Test = class(TForm)
    cmp_btn_FileName: TButton;
    cmp_od_FileName: TOpenDialog;
    procedure cmp_btn_FileNameClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    M: TFileChangesMonitor;
  end;

var
  form_Test: Tform_Test;

implementation

{$R *.dfm}

{ TFileMonitor }

procedure TFileChangesMonitor.ApplicationActivate(Sender: TObject);
var
  CurFileAge: Integer;
begin
  if FFileName <> '' then
  begin
    CurFileAge := FileAge(FFileName);
    if CurFileAge < 0 then
      raise Exception.CreateFmt(const_msg_FileNotFound, [ExtractFileName(FFileName)]);
    if not FMsg then
      if FOldFileAge <> CurFileAge then
      begin
        FMsg := True;
        if MessageDlg(Format(const_msg_FileModifyed, [ExtractFileName(FFileName)]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          try
            ReloadLocalFile(FFileName);
          except
            raise Exception.CreateFmt(const_msg_ImageFileCorrupted, [ExtractFileName(FFileName)]);
          end;
          FMsg := False;
        end
        else
          FMsg := False;
        FOldFileAge := CurFileAge;
      end;
  end;
end;

procedure TFileChangesMonitor.HookFileChanges(FileName: string);
begin
  FFileName := FileName;
  FOldFileAge := FileAge(FileName);
  if FOldFileAge < 0 then
    raise Exception.CreateFmt(const_msg_FileNotFound, [FileName]);
end;

procedure TFileChangesMonitor.ReloadLocalFile(FileName: string);
begin
  { ... }
end;

{ Tform_Test }

procedure Tform_Test.cmp_btn_FileNameClick(Sender: TObject);
begin
  with cmp_od_FileName do
    if Execute and (FileName <> '') then
      M.HookFileChanges(FileName);
end;

procedure Tform_Test.FormCreate(Sender: TObject);
begin
  with cmp_od_FileName do
    Filter := 'JPEG (*.JPEG)|*.jpeg|JPG (*.JPG)|*.jpg| Все файлы| *.*';
  M := TFileChangesMonitor.Create;
  Application.OnActivate := M.ApplicationActivate;
end;

procedure Tform_Test.FormDestroy(Sender: TObject);
begin
  M.Free;
end;

end.

[Noor]

Сообщение от NeiL

Подскажите, как проверить изменялся ли файл. Задача следующая: имеется форма с компонентом TMemo. В него загружаю текст из некоего текстового файла - Memo.Lines.LoadFromFile(const_def_F ilePath). Теперь открываю этот же файл из Блокнота и дописываю в него какой-нибудь текст. Теперь при возвращении в окно своего приложения (Delphi) необходимо проверить изменялся ли файла, и если данное имело место быть вывести сообщение. ShowMessage('File modified. Reload file ?').

уже был такой вопрос (точно такой же .. буква в букву !!!)
и там посоветовали "сравнивать стоит CRC" тем более что есть специальная компонента для этого.