antipirateria para aplicacion

[Crashthebig]

me gustaria saber que puedo hacer para que el delphi compruebe que existe un valor en el registro de windows por ejemplo:
HKEY_CURRENT_USER\appevents\pirata
en este caso pirata es un valor alfanumerico creado por mi entonces lo que quiero hacer es que si la aplicacion no encuentra este valor en el registro la aplicacion no se ejecute

[roman]

Delphi cuenta con la clase TRegistry de la unidad Registry, para accceder el registro. Si buscas en los foros encontrarás seguramente muchos ejemplos.

// Saludos

[Khronos]

Existe una propiedad de los registros llamada ValueExists que te puede servir.

Un ejemplo:

Uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
Pirata: TRegistry;
ComprobarSeguridad: string;
begin
Pirata:=TRegistry.create;
Pirata.RootKey:=HKEY_CURRENT_USER;
Pirata.OpenKey('appevents\pirata', true);
If Pirata.ValueExists('Alfanumerico')=true then begin
ComprobarSeguridad:=Pirata.ReadString('Alfanumerico');
showmessage(ComprobarSeguridad);
end;

If Pirata.ValueExists('Alfanumerico')=false then
begin
showmessage('Tu aplicacion ha sido pirateada');
end;
end;


Esta propiedad es muy util y se utiliza en los instaladores principalmente. Funciona bien, espero ke te sirva.

Salu2

//Lo edite para colocar las etiquetas DELPHI, Por favor Khoronos usalas, BIENVENIDO¡¡¡