delphi - 使用 tponguard 的 OgProtectExe

Question

谁能给我看一个如何使用这个组件的简单例子。谢谢

Answer 1

在您的应用程序（您想通过嵌入 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（从 OnGuardexamples\Delphi文件夹中）用 CRC 标记您的可执行文件（或编写您自己的应用程序调用该OgProExe单元的ProtectExe函数来标记它）。

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

uses
  OgProExe;

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