Detectar si windows ejecuto mi aplicacion al Iniciar el Sistema

[BuenaOnda]

Hola amigos...

Tengo un pequeño porblemita, resulta que cargo mi aplicacion al iniciar windows( la cargo en el registro HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run ) y quisiera detectar si mi aplicacion ha sido cargada por windows o fue ejecutada, manualmente, por un usuario(por ej con un DobleClick)... muchas gracias..

[delphi.com.ar]

La forma mas sencilla que se me ocurre, es que cuando registras tu aplicación en el registro, le pongas un parámetro y evalues si esta ese parámetro para saber en que momento se cargó.

Saludos!

[genius]

la mas sencillita

Hwndd := FindWindow(nil, 'Caption de tu aplicativo');

if Hwndd <> 0 then
Estoy arriba loko..

[[ArdiIIa]]

En la clave de registro añades un parámetro, considerando que el usuario no va a pasar ningún parámetro...
¿ como ?

[BuenaOnda]

mmm... No he logrado darle solución a mi problemita, pense en utilizar un Parametro, en el registro de Windows, de la siguiente manera :

IF Parametro = 1 THEN
BEGIN
{ Aplicación ejecutada por Windows }
Parametro:=2;
END
ELSE { Aplicación ejecutada "Manualmente" }

el problema es que el paremetro siempre tendria valor 2, a no ser que lo actualizara en 1 cuando windows cerrara la sesión..

[delphi.com.ar]

Empezado por BuenaOnda

mmm... No he logrado darle solución a mi problemita, pense en utilizar un Parametro, en el registro de Windows, de la siguiente manera :

IF Parametro = 1 THEN
BEGIN
{ Aplicación ejecutada por Windows }
Parametro:=2;
END
ELSE { Aplicación ejecutada "Manualmente" }

el problema es que el paremetro siempre tendria valor 2, a no ser que lo actualizara en 1 cuando windows cerrara la sesión..

Yo me refería a que agregues un parámetro en la línea de comandos, por ejemplo:

miaplicacion.exe -runstart

Y desde código evalúes:

Código Delphi [-]
  if FindCmdLineSwitch('runstart') then
    { Lo ejecutó windows}

Empezado por genius

la mas sencillita

Hwndd := FindWindow(nil, 'Caption de tu aplicativo');

if Hwndd <> 0 then
Estoy arriba loko..

No di una posibilidad similar (para ese caso crearía un semáforo), porque cabía la posibilidad que la aplicación aún no se encuentre en ejecución!

Saludos!

[BuenaOnda]

me gusta la idea, pero como puedo realizar esto ..

-----------------------------------------------------------------------
Yo me refería a que agregues un parámetro en la línea de comandos, por ejemplo:

Cita:
miaplicacion.exe -runstart
Y desde código evalúes:
Código Delphi [-] if FindCmdLineSwitch('runstart') then { Lo ejecutó windows}
------------------------------------------------------------------------

disculpa tantas preguntas y Muchas gracias por tu ayuda...

[delphi.com.ar]

Empezado por BuenaOnda

me gusta la idea, pero como puedo realizar esto ..

Peroooo... ¡Te lo di casi todo resuelto!

Aca te paso un ejemplo con un parámetro para que se instale, y veas como es que se registra:

Código Delphi [-]
program Project1;

uses
  Windows, SysUtils, Registry, Dialogs;

begin
  if FindCmdLineSwitch('install') then
    with TRegistry.Create do
      try
        RootKey := HKEY_LOCAL_MACHINE;
        if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then
          try
            WriteString(ExtractFileName(ParamStr(0)), ParamStr(0) + ' -runstart');
          finally
            CloseKey;
          end;
      finally
        Free;
      end
  else if FindCmdLineSwitch('runstart') then
    ShowMessage('Aplicación iniciada por Windows')

  else
    ShowMessage('Aplicación iniciada manualmente');

end.

[BuenaOnda]

mmm.. hice todo lo que me dijiste delphi.com.ar pero no me funciona, tengo una confución en esta línea de código :

if FindCmdLineSwitch('install')then

else if FindCmdLineSwitch('runstart') then
ShowMessage('Aplicación iniciada por Windows')
else
ShowMessage('Aplicación iniciada manualmente');

lo que pasa es que solo se ejecute el else de la sentencia If/Then..

[dec]

Hola,

A ver. Tienes que centrarte en una sola cosa: cuando escribas la clave en el Registro de Windows para que tu aplicación se inicie junto al sistema operativo, a la ruta de tu programa, añádele un parámetro "-runstart", por ejemplo, o con cualquier otro nombre.

¿Porque lo que es claro es que desde tu aplicación se añade la clave de marras en el Registro de Windows? ¿Verdad? O lo haces desde el programa de instalación, o como sea, pero, tienes que hacerlo: es una clave que no viene en el sistema, que es de tú sistema y eres tú quien la añade al Registro de Windows.

Pues bien, como se ha dicho, al hacerlo, al añadir la clave en el Registro de Windows, añade a la ruta de tu programa (que tienes que indicar para que Windows sepa dónde está el programa que ha de ejecutar al inicio del sistema) el parámetro de marras: sea "-runstart" o cualquier otro: el nombre lo eliges tú.

Una vez tengas eso... lo único que tienes que hacer es fijarte en el inicio de tu aplicación si existe dicho parámetro, y, si es que existe, ya sabrás que el programa se inició "por Windows" al iniciar el sistema, y no por ningún usuario que hiciera "doble clic" en el ejecutable, puesto que al hacer esto último no se le pasaría parámetro alguno a tu programa.

Resumiendo:

1º Céntrate en la clave en el Registro de Windows que escribes para que tu programa se ejecute al inicio del sistema: añade a la ruta del programa a ejecutar un parámetro, tal y como arriba te muestra Federico:

Código Delphi [-]
WriteString(ExtractFileName(ParamStr(0)), ParamStr(0) + ' -runstart');

2º Cuando tu programa se inicie (por ejemplo, puedes aprovechar el evento "OnCreate" del formulario principal de la aplicación) mira a ver si encuentras el parámetro "-runstart" (en este caso, ya digo que el nombre lo pones tú y puedes poner el que quieras y estimes oportuno).

3º Lo demás es sencillo:

Código Delphi [-]
// Si se le pasa el parámetro "runstart" a tu programa...
if FindCmdLineSwitch('runstart') then
  ShowMessage('Tu programa lo inició Windows siguiendo el registro')
// En caso contrario...
else
  ShowMessage('Tu programa no lo inició Windows sino algún usuario');

Sin embargo, ten en cuenta una cosa. Si lo que tratas de dilucidar a partir de todo esto es algo importante para tu programa, has de saber que sería muy sencillo para cualquier crear un acceso directo a tu programa, de tal manera que incluya en el mismo el parámetro "-runstart"...

Si un usuario hace conseguirá engañar a tu sistema, es decir, el sistema pensará (y obrará) como si lo hubiera iniciado Windows, pero, no lo habrá iniciado Windows sino un usuario "algo avispado"...

No sé. Tal vez podría dársele alguna que otra vuelta a esto. Cualquier comentario que tengas no te lo guardes a ver si entre todos podemos llegar a algún lugar.

[BuenaOnda]

eso era.. muchas gracias a todos amigos por ayudarme y darse el tiempo de contestarme.