Aplicación ejecutar una sola vez

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