本文整理自网络，侵删。
unit Unit1;
interface
uses
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.
相关阅读 >>
Delphi cxdbtreelist：最简单的节点图标添加方法
更多相关阅读请进入《Delphi》频道 >>
