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

unit EXPROTU;

interface

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

type

  { TForm1 }

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

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
begin
  StatusLbl.Caption := ExeStatusToStr(Status);
end;


end.