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¡¡¡