antipirateria para aplicacion

[Khronos]

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

Un ejemplo:

Uses Registry;

Código Delphi [-]
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¡¡¡