Example Keyfile Delphi And Source Code

[err0r]

Hi all,

I gave an example of keyfile that patch directly in the registry, you just put a destination in the source

my source

unit Main_Form;

interface

uses

Windows, SysUtils, Classes, Controls, Forms, StdCtrls, Buttons;

type

TMainForm = class(TForm)

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

private

{ D

Edited October 16, 2007 by err0r

[Sonny27]

Thanks for that, always wanted to know that (although it

[err0r]

Thank you for your comment Sonny27

and I also put a sample in delphi patch for those who want to learn how a patch

keyfile_source_delphi.rar

Edited October 16, 2007 by err0r

[ChupaChu]

Thanks for sharing!

To clear your registry, after testing this nice sources use this code:

   begin
	  Reg:= TRegistry.Create;
	  Reg.RootKey:= HKEY_LOCAL_MACHINE;
	  reg.DeleteKey('\SOFTWARE\CrackMe');
	  MessageBoxA(0,'deleted','ok',0);
   end;

I dont like to have stuff in registry i dont need

Best Regards, ChupaChu!