68 lines
1.2 KiB
ObjectPascal
68 lines
1.2 KiB
ObjectPascal
unit CODEGENU;
|
|
|
|
{$MODE Delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
LCLIntf,
|
|
SysUtils, Classes, Forms, Dialogs,
|
|
Buttons,LResources,StdCtrls, onguard,ogutil;
|
|
|
|
type
|
|
TCodeGenFrm = class(TForm)
|
|
GenerateBtn: TButton;
|
|
CodeEd: TEdit;
|
|
Label2: TLabel;
|
|
CloseBtn: TBitBtn;
|
|
CopySb: TSpeedButton;
|
|
OgMakeCodes1: TOgMakeCodes;
|
|
procedure CopySbClick(Sender: TObject);
|
|
procedure GenerateBtnClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
CodeGenFrm: TCodeGenFrm;
|
|
|
|
implementation
|
|
|
|
|
|
procedure TCodeGenFrm.CopySbClick(Sender: TObject);
|
|
var
|
|
OldSelStart : Integer;
|
|
begin
|
|
OldSelStart := CodeEd.SelStart;
|
|
CodeEd.SelStart := 0;
|
|
CodeEd.SelLength := MaxInt;
|
|
CodeEd.CopyToClipboard;
|
|
CodeEd.SelStart := OldSelStart;
|
|
CodeEd.SelLength := 0;
|
|
end;
|
|
|
|
procedure TCodeGenFrm.GenerateBtnClick(Sender: TObject);
|
|
const
|
|
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
|
|
var
|
|
Work : TCode;
|
|
begin
|
|
{set default key to use}
|
|
OgMakeCodes1.SetKey(CKey);
|
|
if OgMakeCodes1.Execute then begin
|
|
{get the code}
|
|
OgMakeCodes1.GetCode(Work);
|
|
{display the code}
|
|
CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work));
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
initialization
|
|
{$i CODEGENU.lrs}
|
|
|
|
end.
|