Aplicación ejecutar una sola vez

[gsilvei]

hola a todos en el foro, nuevamente necesitando de una ayuda.
tengo una pequeña aplicacion, y queria saber si es posible que se ejecute una sola vez y nada mas...
es decir...que el cliente lo ejecute una sola vez...y no pueda hacerlo mas...de alguna forma que se destruya..


desde ya muchas gracias por la ayuda..
saludos a todos..

[vtdeleon]

Saludos

Echa un vistazo a esto de la pagina de roman

[dec]

Hola,

Hay, si utilizáramos, aunque fuera de vez en cuando, el buscador de estos Foros...

[[seoane]]

Sera que son las 5 de la mañana, pero en la pregunta de gsilvei creo intuir que lo que pide es que su aplicación solo se pueda ejecutar una vez, para siempre. Es decir el fulano en cuestión se descarga el ejecutable, lo ejecuta una vez y cuando quiere volver a usarlo no se le debe permitir nunca mas. En ese caso podemos usar una marca en el registro que indique que la aplicación ya ha sido usada una vez, no entiendo mucho la utilidad de esto, pero a lo mejor esto te puede servir.

Código Delphi [-]
uses Registry;

function ComprobarYMarcar: boolean;
begin
  Result:= FALSE;
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('\Software\TuNombre',TRUE) then
    begin
      if not ValueExists('Marca') then
      begin
        WriteInteger('Marca',1);
      end else Result:= TRUE;
      CloseKey;
    end;
  finally
    Free;
  end;
end;


// En una parte estratégica del programa coloca esto. Por ejemplo en el OnCreate, o quizá en el dpr.
if ComprobarYMarcar then
    Halt;

[vtdeleon]

Empezado por seaone

creo intuir que lo que pide es que su aplicación solo se pueda ejecutar una vez, para siempre. Es decir el fulano en cuestión se descarga el ejecutable, lo ejecuta una vez y cuando quiere volver a usarlo no se le debe permitir nunca mas.

Tenes razón

Saludos