Ver Mensaje Individual
  #4  
Antiguo 08-10-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
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;
Responder Con Cita