Saber Cuando ha Terminado De Cargarse La Aplicación

[sintecsl]

Antes de nada agradeceros las respuestas y vuestro interés. Os comento, que en el arranque de (Create) la form realizo la creación del semáforo y verifico si existe (Last Errror).

Como de momento no tenia solución simplemente silenciaba el problema capturando el error con try except (Cuestión de estética).

Y si creo que la solución debe estar en la forma de parametrizar la línea de comandos al registrar la extenxión asociada a la aplicación.
En este caso tengo este objeto que utilizo siempre que se crea la form :

Código Delphi [-]
........

//Registramos nuestro ejecutable para asociarlo a las extensiones .PRESUPUESTO
     RegistraExtension1.RegistraExt('.PRESUPUESTO',
                       'Fichero PRESUPUESTO','PRESUPUESTOS',Application.ExeName,0);
..........

El código de la misma es el siguiente (Unidad completa) :

Código Delphi [-]

{
 Referencia rápìda :

    Extension : Extensión del fichero a asociar con el ejecutable
    Descripcion : Lo que aparece en el explorador de windos al lado como descripción
    Tipo : Identificador dentro del registro (no se debe repetir pues machaca el existente)
    Ejecutable : El fichero que ejecutara a la extensión asociada y el path completo
    IndiceIcono : El icono que se mostrará para la extensión buscando desde
                  el ejecutable (0 -> es el que tiene por defecto)
    }

unit RegistraAplicacion;
//{$R RegistraAplicacion.dcr}

interface
Uses classes, Forms;

Type

TRegistraExtension = class(TComponent)
  private
  protected
  public
     procedure RegistraExt(Extension,
                           Descripcion,
                           Tipo,
                           Ejecutable : string;
                           IndiceIcono: integer);
     procedure EliminaExt(Extension,
                          Tipo : String);
  published
end;

procedure Register;

implementation

Uses Registry, Windows, ShlObj, SysUtils;

{ TRegistraExtension }

procedure Register;
begin
  RegisterComponents('UTIL', [TRegistraExtension]);
end;

procedure TRegistraExtension.EliminaExt(Extension, Tipo: String);
Var
  Reg :TRegistry;
Begin
    Reg := TRegistry.Create;
    try
      Extension:=AnsiUpperCase(Extension); //Mayusculas
      If Pos('.',Extension)<>1 Then Extension:='.'+Extension; //Aseguramos
     If (Extension='.EXE') Or (Extension='.COM') Or
        (Pos('?',Extension)>0) Or (Pos('*',Extension)>0)
        Then Extension:=''; //Borramos prohibidos
     If (Extension='') Or (Tipo='') Then Exit; //No hay nada
     with Reg do
      Begin
     (*   RootKey := HKEY_CLASSES_ROOT;
        OpenKey(Extension, True);
        DeleteKey(Extension);
        CloseKey;
        OpenKey(Tipo, True);
        DeleteKey(Tipo);
        CloseKey;   *) //De momento no funciona
      End;
    finally
      Reg.Free;
    End
end;

procedure TRegistraExtension.RegistraExt(Extension,
                                         Descripcion,
                                         Tipo,
                                         Ejecutable : string;
                                         IndiceIcono: integer);
Var
  Reg :TRegistry;
Begin
  Reg := TRegistry.Create;
    try
      Extension:=AnsiUpperCase(Extension); //Mayusculas
      If Pos('.',Extension)<>1 Then Extension:='.'+Extension; //Aseguramos
     If (Extension='.EXE') Or (Extension='.COM') Or
        (Pos('?',Extension)>0) Or (Pos('*',Extension)>0)
        Then Extension:=''; //Borramos prohibidos
     If Extension='' Then Exit; //No hay nada
     If Descripcion='' Then //Si no hay descripción la creamos en base el EXE
        Descripcion:=ChangeFileExt(ExtractFileName(Application.ExeName),'');
     If (Ejecutable='') Or Not FileExists(Ejecutable) Then
        Ejecutable:=Application.ExeName;
     If Tipo='' Then Tipo:=Descripcion;
      with Reg do
      Begin
        RootKey := HKEY_CLASSES_ROOT;
        OpenKey(Extension, True);
        WriteString('', Tipo);  //TIPO es la llave para acceder al resto del arbol
        CloseKey;
        OpenKey(Tipo, True);
        WriteString('', Descripcion);
        CloseKey;
        OpenKey(Tipo+'\DefaultIcon', True);
        WriteString('', Ejecutable + ',' + IntToStr(IndiceIcono));
        CloseKey;
        OpenKey(Tipo+'\Shell\Open', True);
        WriteString('', '&Abrir');
        CloseKey;
        OpenKey(Tipo+'\Shell\Open\Command', True);
        WriteString('', '"' + Ejecutable + '" "%1"'); --> CREO KE AKÍ ES DONDE ESTA MAL PARAMETRIZADO
        CloseKey;
      End;
     //Nos permite actualizar las ventanas
 (*     SHChangeNotify( SHCNE_ASSOCCHANGED,
                      SHCNF_IDLIST,
                      nil, nil);         *)
    finally
      Reg.Free;
    End
End;

(*  EJEMPLO DE USO :

 Registramos nuestro ejecutable para asociarlo a las extensiones .PRESUPUESTO
     RegistraExtension('.PRESUPUESTO',
                       'Fichero PRESUPUESTO',
                       'PRESUPUESTOS',
                       Application.ExeName,
                       0);
     RegistraExtension('.PRESUPUESTO',
                       'Fichero PRESUPUESTO',
                       '',
                       '',
                       0);
*)

end.

Editaré el registro de alguna aplicación (como un editor de textos) y miraré como resuelve el tema paramétrico en Open. Seguro que ahí tendré la respuesta.

Gracias a tod@s.