Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-05-2007
Avatar de Crashthebig
Crashthebig Crashthebig is offline
Miembro
 
Registrado: oct 2006
Ubicación: Republica Dominicana
Posts: 59
Poder: 18
Crashthebig Va por buen camino
Talking antipirateria para aplicacion

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
Responder Con Cita
  #2  
Antiguo 03-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #3  
Antiguo 03-05-2007
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Poder: 18
Khronos Va por buen camino
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¡¡¡

Última edición por jhonny fecha: 03-05-2007 a las 21:31:05.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
En 24 horas violan el programa antipiratería de Microsoft Delphius Noticias 1 30-07-2005 09:48:45
Aplicación para PDA o POCKET PC chozas Varios 2 05-07-2004 09:39:50
Aplicacion para distribuir raul_sal Varios 6 11-05-2003 16:54:00


La franja horaria es GMT +2. Ahora son las 21:08:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi