10 respuestas en este tema

[monchito_elroro]

Muy buenas con todos hermanos , disculpen la molestía si pueden ayudarme en este dilema.

 

Como puedo saber cuando mi aplicación es iniciada por primera vez en cada encendido de la PC. es decir cuando prenda la PC e inicie mi programa saber que es la primera vez que se ejecuta sin importar las demás ejecuciones, pero siempre hacer esa comprobación en cada encendido.

 

Gracias por su tiempo.

[Wilson]

Una posible solución sería hacer otra pequeña aplicación que se ejecute como un servicio y que arranque con el OS, dicha aplicación llevaría un registro en un archivo .ini  de cada inicio del OS, y  la aplicación que quieres monitorear solo debería escribir en el .ini la fecha y hora de cada ejecución, dicho archivo podría limpiarse en cada arranque del OS.

 

Saludos.

 

PD: Es muy posible que los maestros de la API tengan una solución más simple.

[seoane]

¿Que necesitas exactamente? Saber si tu aplicacion ya se esta ejecutando o saber si se ha ejecutado en algun momento desde el ultimo reinicio

[monchito_elroro]

Bueno lo que me gustaría hacer es lo siguiente:

 

* enciendo PC  

* ejecuto mi programa   ----> primera ejecución ¿Cómo saberlo?

* ejecuto mi programa otras veces....

* apago mi PC

 

en otro momento....

 

* enciendo PC  

* ejecuto mi programa   ----> primera ejecución ¿Cómo saberlo?

* ejecuto mi programa otras veces....

* apago mi PC

 

 

Espero me entiendan amigos y espero su ayuda.

[Héctor Randolph]

Si es exclusivamente para Windows tenemos la función GetTickCount

 

https://msdn.microso...8(v=vs.85).aspx

 

Con ella puedes obtener el total de milisegundos transcurridos desde el último inicio del sistema.

 

Adicionalmente puedes guardar en el registro la última vez que inició tu aplicación, entonces ya tendrás algo para comparar.

 

Si es para Linux,  tal vez se pueda encontrar un equivalente para saber la fecha y hora del inicio de sistema

 

 

Saludos

[seoane]

Pues no queda mas remedio que dejar algun tipo de "marca" para saber que el programa ya se ha ejecutado, y lo mas sencillo es un fichero.
 
Solamente tenemos que asegurarnos de que el fichero se borra cada vez que el sistema se inicia y podemos dejar que el sistema operativo se encargue de eso.

delphi

function SoyElPrimero: Boolean;
var
  Filename: String;
begin
  // Usamos para guardar el fichero la misma ruta que el ejecutable
  Filename:= ChangeFileExt(ExpandFileName(ParamStr(0)),'.flg');
  // Si el fichero no esta somos los primeros
  if not FileExists(Filename) then
  begin
    // Creamos el fichero 
    CloseHandle(FileCreate(Filename));
    // Y le decimos al sistema que lo borre en el proximo inicio
    MoveFileEx(PAnsiChar(Filename),nil,MOVEFILE_DELAY_UNTIL_REBOOT);
    Result:= TRUE;
  end else
    Result:= FALSE;
end;

Lo malo es que esto solo funciona si estamos ejecutando nuestra aplicacion como administrador
 
Opción 2:
 
Añade la siguiente unit a tu proyecto:

delphi

unit uSoyElPrimero;
 
interface
 
uses Windows, Sysutils, Registry;
 
function SoyElPrimero: Boolean;
 
implementation
 
const
  Name = '1E951A18-7D9E-455E-AF20-E62EAC97D794';
  Flag = '5CD98646-3448-4DAB-BCAA-396D07681EB4';
 
function SoyElPrimero: Boolean;
begin
  Result:= TRUE;
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',TRUE) then
    begin
      if ValueExists(Name) then
        Result:= FALSE
      else
        WriteString(Name,ExpandFileName(ParamStr(0)) + ' /' + Flag);
    end;
  finally
    Free;
  end;
end;
 
initialization
  if FindCmdLineSwitch(Flag) then
  try
    with TRegistry.Create do
    try
      RootKey:= HKEY_CURRENT_USER;
      if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',TRUE) then
      begin
        if ValueExists(Name) then
          DeleteValue(Name);
      end;
    finally
      Free;
    end;
  finally
    Halt;
  end;
finalization
 
end.

Y ella se encargara de todo:

delphi

begin
  if SoyElPrimero then
    Writeln('Soy el primero')
  else
    Writeln('Llegue tarde ...');
  Readln;
end.

Aqui son las 1:38 AM asi que si no entiendes algo mañana te lo explico

[monchito_elroro]

Gracias por sus respuestas las voy a probar. 

[monchito_elroro]

Buenas con todos amigos de momento voy a tratar de probar la primera idea que me sugerieron, crear dos aplicaciones, una se llamará "start proyecto1.exe" (será el que tendrá el poder de mandar la señal de primera ejecución ) y el otro se llamará "proyecto1.exe" y pienso hacerlos trabajar de la siguiente manera:

 

* enciendo PC  

* se ejecuta "start proyecto1.exe"  y manda una señal de primera ejecución

* el programa "start proyecto1.exe" abre el otro programa "proyecto1.exe" y seguidamente se autocierra el programa "star proyecto1.exe"

* el programa "proyecto1.exe" queda activo

* ejecuto "proyecto1.exe" otras veces

* apago mi PC

 

en otro momento.... 

 

* enciendo PC  

* se ejecuta "start proyecto1.exe"  y manda una señal de primera ejecución

* el programa "start proyecto1.exe" abre el otro programa "proyecto1.exe" y seguidamente se autocierra el programa "start  proyecto1.exe"

* el programa "proyecto1.exe" queda activo

* ejecuto "proyecto1.exe" otras veces

* apago mi PC

 

 

Lo voy a probarlo y les comento

[Delphius]

Me parece que la idea de Seoane es un poco más robusta (y viendo que este tema está en Lazarus, cabe preguntarse si la idea es hacer un software multiplataforma o atarse a Windows). Detecta efectivamente si se apaga la PC o se reinicia.

Pero veamos el asunto desde más profundo... Hazte esta pregunta ¿Y que pasa, o debiera pasar, si dicha PC no se apaga y deja encendida más de 24hs?

 

¿Cuál es el objetivo de detectar cada vez que inicia por 1ra vez? ¿Que de especial o importante debe hacerse en ese momento y no en las sucesivas veces?

 

Saludos,

[monchito_elroro]

Muchas gracias por sus comentario amigos , bueno lo que deseo desarrollar es lo siguiente:

 

Deseo crear una aplicación tal.

la cual cuando la abra primero generará un "Splahscreen" ó un pantallazo de bienvenida, luego abrirá el "form" principal

Mi idea era solo detectar el primer inicio del momento para así lanzar sólo el "Splahscreen" sólo una vez y no cada vez que arranque mi aplicación, pues pienso que sería muy molesto a la larga.

El "Splahscreen" y el "form" principal están en un solo EXE, y no encuentro manera de como hacer que mandará la señal de primera ejecucíon    .

Pense primero en trabajar con el registro.

 

haciendo lo siguiente:

 

if not "claveexiste" then

        begin

        {primer inicio}

        end

else

        begin

        {ya se ejecutó}

        end;

 

 

pero lo malo es que tendría que borrarse junto con el apagado, sino quedaría grabado el "primer inicio" y siempre me detectaría que ya se ejecuto.

[Agustin Ortu]

Yo usaria algun archivo temporario, tu aplicacion inicia
 
a. Si el archivo existe, entonces significa que no es la primer ejecucion (ya se ejecuto antes)
b. Si no existe, lo creas y luego lo marcas como borrado en el proximo inicio de windows con una funcion como esta
 

delphi

// Use MoveFileEx with the MOVEFILE_DELAY_UNTIL_REBOOT flag instead:
 if not MoveFileEx(PChar(YourFileToDelete), nil, MOVEFILE_DELAY_UNTIL_REBOOT) then
 SysErrorMessage(GetLastError);

 
Extraido de:

http://stackoverflow...from-my-program