TOgMakeKeys

type TOgMakeKeys = class(TComponent)

protected

  FKeyFileName: string;

  FKey: TKey;

  FKeyType: TKeyType;

  FShowHints: Boolean;

public

  constructor Create(); override;

  function Execute;

  procedure ApplyModifierToKey();

  function GenerateDateModifier();

  function GenerateMachineModifier;

  procedure GenerateMDKey();

  procedure GenerateRandomKey();

  function GenerateStringModifier();

  function GenerateUniqueModifier;

  procedure SetKey();

  procedure GetKey();

published

  property KeyFileName: string; [rw]

  property KeyType: TKeyType; [rw]

  property ShowHints: Boolean; [rw]

end;

TOgMakeKeys

TObject