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 (http://romansg.net/index.php?pg=uiapp) de la pagina de roman (http://romansg.net)

[dec]

Hola,

Hay, si utilizáramos (http://www.clubdelphi.com/foros/showthread.php?t=25815), aunque fuera (http://www.clubdelphi.com/foros/showthread.php?t=19505) de vez en cuando (http://www.clubdelphi.com/foros/showthread.php?t=15261), el buscador de estos Foros (http://www.clubdelphi.com/foros/showthread.php?t=34295)... :D

[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.


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]

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