使用来自tponguard的OgProtectExe

时间:2012-04-21 17:14:59

标签: delphi delphi-7

任何人都可以向我展示一个如何使用此组件的简单示例。谢谢

1 个答案:

答案 0 :(得分:2)

在您的应用程序(要通过嵌入CRC保护的应用程序)中,删除OgProtectExe组件。如果我没记错的话,使用Object Inspector为其单个事件添加处理程序(OnChecked)。处理程序应包含以下内容:

procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
begin
  if (Status <> exeSuccess) then // CRC changed
    // Handle modified executable
end;

可能的TExeStatus值为:

exeSuccess         - CRC is OK
exeSizeError       - File size has changed
exeIntegrityError  - CRC doesn't match
exeNotStamped      - Executable not stamped

像往常一样构建应用程序。使用StampExe(来自OnGuard examples\Delphi文件夹)使用CRC标记可执行文件(或编写自己的应用程序,调用OgProExe单位的ProtectExe函数进行标记)。

ProtectExe有两个参数 - 要保护的可执行文件的完整路径和文件名,以及一个布尔值,指示它是否应该在保护后删除它的特殊标记。您应该通过True,除非您希望之后能够取消对可执行文件的保护。

uses
  OgProExe;

...
if ProtectExe(YourExeName, EraseMarker) then  // executable stamped