unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses ImageHlp; {MapFileAndCheckSum 定义在这个单元}procedure TForm1.Button1Click(Sender: TObject);const  exeFile = 'c:\windows\system32\notepad.exe'; {exe or dll}var  size1,size2: Cardinal;begin  MapFileAndCheckSum(exeFile, size1, size2);   ShowMessageFmt('原生大小: %d; 修改后大小: %d', [size1,size2]);  {函数返回 0 表示已顺利检测, 但还要判断 size1、size2 是否相等}end;end.