Mostrar Formulario solo 1 vez y destruirlo

[BuRtOn]

Saludos amigos, muchisimas gracias Coso por colaborarme en el codigo, y ati delphius como siempre me ayudas, jeje, miren lo que yo quiero, es proteger mi aplicacion de lo siguiente:

Vendi mi aplicacion a un Gimnasio, le di el instalador y listo, el instalo el .exe de mi aplicacion en su pc y las bases de datos correspondientes, ...pero hay un problema si el dueño del Gimnasio coje y copia mi aplicacion o simplemente coje el Cd de instalacion que yo le di, e instala mi aplicacion en otro pc, o mejor dicho vende mi aplicacion a otro Gimnasio....entonces necesito seguridad de que si otra persona va a instalar mi aplicacion no pueda...que la aplicacion solo corra en los Gimnasios autorizados, osea los que me compran la aplicacion....y que una vez este instalada la aplicacion y el le de copiar al .exe y a las bases de datos y los pase a otro pc no pueda...pues ahi es donde emepieza a funcionar el Id del disco duro.....entonces miren lo que estoy tratando de hacer:


1. Para evitar que los Gimnasios que tengan mi cd de instalacion y traten de instalarlo no puedan, pues facil, siempre que vendemos la aplicacion y se instala ella genera el formulario que les digo que es el formulario de seguridad....este Formulario contiene lo siguiente:

* Serial: el serial es un codigo standar que nostros grabamos, para que se pueda instalar la aplicacion....ejemplo de lo que estoy explicando:

Código Delphi [-]
procedure TfrmSerial.Button2Click(Sender: TObject);
begin
if edtSerial.Text='xxxxxx' then
begin
ShowMessage('Bienvenidos a SISGYM');
end
else
begin
ShowMessage('Por favor no trate de crackear esta aplicacion');
end;
end;

como se pueden dar cuenta el serial esta predefinido en tiempo de programacion y el codigo seria es xxxxxx, entonces ese codigo siempre lo colocamos nostros apenas instalemos la aplicacion, por que eso es lo bueno, que nostros mismos vamos e instalamos nuestra aplicacion....asi que ese codigo solo lo sabemos mi compañero y yo...por ese lado evitaria que me copien la aplicacion desde el cd de instalacion que yo doy...


* Id: el Id del disco duro lo que me ayudaria a evitar es que me copien la aplicacion despues de instalarla en el pc del Gimnasio obtenga la aplicacion....ejemplo de lo que digo: Me compran la aplicaicon, la instalo en el pc del gimanasio, el dueño le da copiar a mi .exe y a las bases de datos, y le da pegar en otro pc, y listo queda de una mi aplicacion en otro pc, entonces si tengo el Id del disco duro, en una Base de datos o un archivo, como sea mas facil, pues simplemente que me genere la consulta siempre que se ejecute la aplicacion que si el Id es <> no me deje ejecutar la aplicacion.

Pero una de las cosas que quiero hacer y a lo mejor no me explique es lo que mencione anteriormente lo del Serial y el Id, ya saben por que el serial y por que el Id, lo que deseo es pues cuando la aplicacion se ejecute por primera vez me arroje el formulario de Seguridad e inmediatamente proceda a insertar los datos de Serial e Id...y se ejecute la consulta respectvia si los datos son correctos permita continuar con la aplicacion si no, pues simplemente emitir un shomessage('Datos de registros incorrectos'); y cierre la aplicacion, a eso se le puede agregar lo que decia coso, que si el numero de intentos es > 5 cierre la aplicacion---, lo otro es que una vez registrado el cliente no vuelva a salir el formulario, pero que siempre que se ejecute la aplicacion se ejecute la consulta de que si el Id es correcto....y si algun caso el Id no llega a ser correcto eso indica que la aplicacion esta en otro pc.... e inmediatamente vuelva a generar el formulario de ingrese Serial e Id........eso es lo que nesecito....y Coso, por archivos me parece como mas facil, segun tu codigo, pero no soy tan avanzado como tu, me gustaria que me pasaras un tutorial de archivos, pues tu das una buena opcion de almacenar el Id en un archivo pero no tengo ni idea como crearlo...no se como es la sintaxis, ni los parametros del archivo que mencionas, en fin espero que me puedas explicar con plastilina, jejeje, es que el tiempo apremia me toca entregar la aplicacion este martes, y necesito eso para que no me la roben, ya basta que aqui en Colombia, piratean todo...hay que tener cuidado con eso...les agradesco que me puedan colaborar....y espero que esta vez me hallan entendido mas....me demore mucho planteando bien mi pregunta...ha y por ultimo, esta es la funcion que tengo para extraer el Id:

Código Delphi [-]
//Funcion de seguridad
function GetVolumeID(DriveChar: Char): String;
  var
    MaxFileNameLength, VolFlags, SerNum: DWord;
  begin
    if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
       @SerNum, MaxFileNameLength, VolFlags, nil, 0)
    then
    begin
      Result := IntToHex(SerNum,8);
      Insert('-', Result, 5);
    end
    else
        Result := '';
  end;

Posdata: Tengo una aplicacion aparte que me extrae y me muestra por pantalla el Id del pc, entonces solo es insertar el Id de mi aplicacion en mi formulario de seguridad y comprobar si ese Id corresponde al del Pc...Gracias amigos por todo su tiempo prestado...

[[coso]]

Hola, me da la impresion que el problema no es que te demores planteando la pregunta, sino que no escuchas las respuestas si tienes otro programa donde coger la id, personalmente usaria este para 'marcar' tu aplicación con el id del disco duro (comprobando el serial) y luego al cargar la aplicación que se leyera directamente de ella misma y comprobase que es la misma.

Para grabar en un archivo, te dejo este link

Hoy es domingo, pero si tengo tiempo ya preparare un ejemplo (yo de ti por eso, no me esperaria ) Saludos.

[BuRtOn]

Saludos Coso, jajaj, brother a cuando digo que tengo un programita aparte para sacar el Id es para no incluirlo dentro del formulario de seguridad...pero en lo que estoy confundido, es en como hago para que el formulario solo aparezca una vez, osea apenas se ejecute la aplicacion por primera vez, y que genere la consulta de que si los datos son correctos continue la aplicacion si son incorrectos termine la aplicacion, y que no vuelva a salir nunca mas....excepto si la aplicacion la intentan ejecutar desde otro pc, que vuelva a salir el formulario de seguridad.....


En pocas palabras que el formulario salga la primera vez de ejecucion pida datos y listo, no vuelva a salir, pero que siempre que se ejecute la aplicacion el haga internamente la consulta de que el Id que esta guardado en el archivo es = al Id que el esta extrayendo....y cuando el Id sea <> que vuelva a salir el formulario...que copdigo se utiliza ??, y no tanto el codigo si no en que evento lo ubico ??? gracias Coso has sido de gran ayuda hombre....

[[coso]]

si vamos, lo que ya te han respondido 5 veces seguidas...si lo que quieres es que te hagamos la faena, creo que estas en el sitio equivocado

[BuRtOn]

mmm...solo necesito saber en que evento del formulario ubico el codigo que me han dado, para lo que aparezca solo una vez y ya...eso es todo...por eso dije que no me importa tanto el codigo....y sabes Coso, no me gusta que me hagan las cosas, es que cuando llebas como 4 o 5 meses programando apenas con Delphi y solo te enseñan lo mas basico de este mundo, es un poco duro aprender solo....pero hay voy entonces por favor no diga que yo quiero que me hagan mi trabajo, por que no soy parasito brother, y gracias....

[[coso]]

si hubiese usted leido las respuestas anteriores, ya sabria en que evento colocarlo. saludos y adios.

[[egostar]]

Empezado por BuRtOn

Saludos Coso, jajaj, brother a cuando digo que tengo un programita aparte para sacar el Id es para no incluirlo dentro del formulario de seguridad...pero en lo que estoy confundido, es en como hago para que el formulario solo aparezca una vez, osea apenas se ejecute la aplicacion por primera vez, y que genere la consulta de que si los datos son correctos continue la aplicacion si son incorrectos termine la aplicacion, y que no vuelva a salir nunca mas....excepto si la aplicacion la intentan ejecutar desde otro pc, que vuelva a salir el formulario de seguridad.....


En pocas palabras que el formulario salga la primera vez de ejecucion pida datos y listo, no vuelva a salir, pero que siempre que se ejecute la aplicacion el haga internamente la consulta de que el Id que esta guardado en el archivo es = al Id que el esta extrayendo....y cuando el Id sea <> que vuelva a salir el formulario...que copdigo se utiliza ??, y no tanto el codigo si no en que evento lo ubico ??? gracias Coso has sido de gran ayuda hombre....

Empezado por coso

si vamos, lo que ya te han respondido 5 veces seguidas...si lo que quieres es que te hagamos la faena, creo que estas en el sitio equivocado

He estado leyendo este hilo y francamente me ha desesperado un poco el hecho de que no quieras o no puedas comprender lo que te han dicho hasta ahora.

Mira, esto es cuestión de lógica

Si no existe registro entonces muestro pantalla de registro
en caso contrario entro a la aplicación

Traducelo al código y verás que es muy simple,no te ahogues en un vaso de agua, ya has perdido demasiado tiempo con esto y puede que en este momento estén instalando una copia mas de tu programa.

Solo hay algo que no me checa de todo esto

Empezado por BuRtOn

Vendi mi aplicacion a un Gimnasio, le di el instalador y listo, el instalo el .exe de mi aplicacion en su pc y las bases de datos correspondientes

Lo que hagas a partir de ahora nada tendrá efecto si tu cliente ya se hizo de una copia del instalador anterior con las intenciones que has comentado

Salud OS

[BuRtOn]

Saludos Egostar, jaja no brother, que voy a vender mi aplicacion el martes, absolutamente nadie tiene la aplicacion aun, ni el instalador, jajajajaja, Dios ya me ubieran copiado mi aplicacion hace hufffff...pero no ho,bre estoy elaborando la parte de seguridad para que no les quede tan facil hacer copia de mi aplicacion.....y Egostar, si se que la logica es muy simple, solo que no se en que evento coloco el codigo de la logica, para que el formulario solo se muestre una sola vez, y siga ejecutando internamente la consulta de que el Id es correcto....sin mostrar formulario, y cuando sea incorrecto esa informacion que lo muestre....eso es todo, en que evento programo esooooooo....jejeje creo que eso es todo lo que necesito, ya estoy leyendo como crear archivos...para guardar el Id en un archivo....Gracias por todo, y si me ha servido el codigo que me han dejado, ahi estoy programandolo haber que sucede...pero el evento por favoorrr....Gracias por su tiempo prestado...

[BuRtOn]

Saludos Delphius-....haaa ok, eso era lo que necesitaba saber el evento....ya entendi...jejeje gracias, al tiro me pongo a terminar ese codigo...Gracias por tu tiempo prestado...

[[Delphius]]

Hola BuRtOn,
Dime, sin ofender ¿Estoy hablando en chino?

Porque no comprendo que no te hayas dado cuenta de lo que coso y yo te hemos estado diciendo.

¿Tanto cuesta hacer que cuando se crea la ventana principal hacer el chequeo de si está registrado el usuario y en base a ello decidir si se debe mostrar la ventana de registración o sino dar por válido la copia del ejecutable?

Veamos esto bajo la lupa:

1. En el evento OnCreate de tu form principal debes tener algo como esto:

Código Delphi [-]
RegistroValido := VerificarRegistro;
if NOT RegistroValido
   then begin
            // el sistema no ha sido registrado
            ShowMessage('Hey amigo... tienes una copia ilegal del sistema');
            MostrarVentanaDeRegistracion;
          end
   else begin
            // el sistema ya habia sido registrado
           ShowMessage('Gracias amigo por usar una copia legal');
           HacerAlgunaOperacionNecesaria;
         end;

VerificarRegistro es una función que cumple con el propósito de hacer la "consulta" y determinar si el usuario tiene una copia registrada. Ya sea que deba consultar a una base de datos, mirar en un archivo oculto, en el regitro de windows, no importa... Lo que interesa es que VerificarUsuario tiene la capacidad de saber si el sistema fue registrado apropiadamente.

Y bueno, se pregunta si esta todo en orden (debidamente registrado), si no lo está se muestra el form de registración y si está en orden simplemente se deja continuar con el trabajo: se habilitan los menues, se lanza el cuadro de login si es necesario, etc (eso ya depende de tu sistema).

¡Y listo! ¿Que más simple que esto?
¿Que sucede? He aqui una explicación del tema:

1. En la primera vez que se inicia el ejecutable, VerificarRegistro devuelve FALSE. Por tanto, habilitará el form de registro y mostrará el cartelito necesario.
2. El usuario por tanto se ve obligado a registrar el software. Si no lo registra, el sistema seguirá arrojando el cartelito y el form de registro.

No está demás decir que el sistema debe diseñarse para que esta form de registro sea en forma modal y que las opciones de menu y otras cosas estén inhabilitadas a excepción de las que permiten llevar al form de registro. Aunque todo esto dependerá de como esté hecho el sistema.

3. Una vez que el usuario registra apropiadamente el software, VerificarRegistro devolverá TRUE, por tanto seguirá el curso normal de trabajo.

BuRtOn, ¿Se entiende ahora?
Por cierto, yo que tu reemplazaría esos ShowMessage() por Application.MessageBox(), es mucho más estético y profesional.

Saludos,