Detectar si windows ejecuto mi aplicacion al Iniciar el Sistema

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