lazarus-ccr/components/onguard/examples/exprot/exprotu.pas

unit EXPROTU;

interface

uses
  SysUtils, Classes,
  Controls, Forms, Dialogs, StdCtrls, Buttons, LResources, ExtCtrls,
  ogutil, ogproexe;

type

  { TForm1 }

  TForm1 = class(TForm)
    Bevel1: TBevel;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    OgProtectExe1: TOgProtectExe;
    procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
var
  S : string;
begin
  case Status of
    exeSuccess         : S := 'EXE file is OK';
    exeSizeError       : S := 'EXE file size has changed';
    exeIntegrityError  : S := 'EXE Integrity Error';
    exeNotStamped      : S := 'EXE file is not stamped';
  else
    S := 'Unknown error';
  end;
  StatusLbl.Caption := S;
end;

initialization
{$i exprotu.lrs}

end.