Como hacer para abrir un archivo con mi app dandole dclick en el shell

[[coso]]

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
begin
        if paramcount <> 0 then
        Memo1.Lines.LoadFromFile(paramstr(1));
end;
end.

paramstr(0) es el nombre del .exe

en el momento de registrar la extension a windows, escoges tu programa, siempre que no lo hagas mediante codigo.

saludos.

[Dean]

ok gracias parece que debi probar con el paramstr desde el principio pero no pense que fuera tan facil

[[coso]]

jej personalmente encuentro mas divertido primero probar y luego preguntar (aunque a veces te la pegas ) saludos y de nada

[[escafandra]]

Bueno, apuntar una aclaración. Lo que tu quieres hacer requiere haber registrado previamente, de alguna forma, el tipo de archivo. luego, usar los parémetros de la línea de comandos, como apunta coso,

En Builder C++ sería algo así:

// Siendo LoadFile la función que abre el fichero
if(ParamCount()>0){
     LoadFile(ParamStr(1)); // Abre la cadena del primer parámetro pasado 
}

El Evento OnActivate puede resultar peligroso si se ejecuta por segunda ves desde que se abrió la aplicación. Para evitar que se te vuelva a abrir el archivo deberás detectar que sólo es una vez.

Usa una variable static de la función que al cambiar de valor te indica que ya no es la primera ejecución.

En algun caso puedes tener conflictos con ventanas que no se han creado y cuyo código no puede ejecutarse hasta que se existan visualmente. En este caso un truco es usar un TTimmer que se desactiva sólo (sólo ocurrirá una vez).

Mira este código. Cada vez que clickes en Form1 se ejecutará el evento OnActivate otra vez... Es un ejemplo que demuestra que no es un evento seguro a no ser que firtremos la primera vez que se ejecuta.

void __fastcall TForm1::FormActivate(TObject *Sender)
{
      static int n=0;
      Label1->Caption = IntToStr(n);
      n++;
      Form2->Show();
}

Con este otro puedes ver como un Timer puede ser la solución

void __fastcall TForm1::TimerCreateTimer(TObject *Sender)
{
   TimerCreate->Enabled = false;
   AfterCreate(); // Función que seguro se ejectua tras crear visualmente la ventana
}

Saludos.

[rogeliogamberro]

Intente agregar a un nuevo proyecto el codigo de c publicado

#include <Registry.hpp>
#include <shlobj.h>

void
RegisterFileType(AnsiString Ext, AnsiString PathExec)
{
  // Ext tipo de archivo : EXTENSION
  // PathExec: RUTA COMPLETA del ejecutable que queremos que lo abra

  TRegistry *Registry = new TRegistry;
  try{
    Registry->RootKey = HKEY_CLASSES_ROOT;
    // Crear la clave .Ext
    Registry->OpenKey("." + Ext, true);
    try{
      // Ccrear el valor con el nombre del tipo de archivo para esta clave (extfile)
      Registry->WriteString("", Ext + "file");
    }
    __finally{
      Registry->CloseKey();
    }
    // Crear una clave nueva para el nombre del tipo de archivo dado anteriormente (extfile)
    Registry->CreateKey(Ext + "file");
    // Crear una nueva clave para el icono por defecto
    Registry->OpenKey(Ext + "file\\DefaultIcon", true);
    // Crear un valor con el icono (PathExec.exe,0)
    try{
      Registry->WriteString("", PathExec + ",0");
    }
    __finally{
      Registry->CloseKey();
    }
    Registry->OpenKey(Ext + "file\\shell\\open\\command", true);
    //Crear el valor para el ejecutable que abre el tipo de archivo (PathExec.exe "%1")
    try{
      Registry->WriteString("", PathExec + " \"%1\"");
    }
    __finally{
      Registry->CloseKey();
    }
  }
  __finally{
    delete Registry;
  }
  // Notificar al sistema el cambio efectuado
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
}

Agregue la declaracion de la rutina en el .h y ohhh sorpresa... Me da 4 errores...

[C++ Error] shlobj.h(1762): E2238 Multiple declaration for 'FVSHOWINFO'
[C++ Error] shlobj.h(1936): E2238 Multiple declaration for 'FOLDERSETTINGS'
[C++ Error] shlobj.h(3717): E2238 Multiple declaration for 'DESKBANDINFO'
[C++ Error] shlobj.h(4808): E2238 Multiple declaration for 'SHELLFLAGSTATE'

los cuales hacen referencia a las siguientes estructuras en el archivo shlobj.h

shlobj.h

// --------------------------------------------------------------------

typedef struct
{
    // Stuff passed into viewer (in)
    DWORD cbSize;           // Size of structure for future expansion...
    HWND hwndOwner;         // who is the owner window.
    int iShow;              // The show command

    // Passed in and updated  (in/Out)
    DWORD dwFlags;          // flags
    RECT rect;              // Where to create the window may have defaults
    IUnknown *punkRel;      // Relese this interface when window is visible

    // Stuff that might be returned from viewer (out)
    OLECHAR strNewFile[MAX_PATH];   // New File to view.

} FVSHOWINFO, *LPFVSHOWINFO;

// --------------------------------------------------------------------
typedef struct
    {
    UINT ViewMode;       // View mode (FOLDERVIEWMODE values)
    UINT fFlags;         // View options (FOLDERFLAGS bits)
    } FOLDERSETTINGS, *LPFOLDERSETTINGS;

// --------------------------------------------------------------------

typedef struct {
    DWORD       dwMask;
    POINTL      ptMinSize;
    POINTL      ptMaxSize;
    POINTL      ptIntegral;
    POINTL      ptActual;
    WCHAR       wszTitle[256];
    DWORD       dwModeFlags;
    COLORREF    crBkgnd;
} DESKBANDINFO;

// --------------------------------------------------------------------
typedef struct {
    BOOL fShowAllObjects : 1;
    BOOL fShowExtensions : 1;
    BOOL fNoConfirmRecycle : 1;
    BOOL fShowSysFiles : 1;
    BOOL fShowCompColor : 1;
    BOOL fDoubleClickInWebView : 1;
    BOOL fDesktopHTML : 1;
    BOOL fWin95Classic : 1;
    BOOL fDontPrettyPath : 1;
    BOOL fShowAttribCol : 1;
    BOOL fMapNetDrvBtn : 1;
    BOOL fShowInfoTip : 1;
    BOOL fHideIcons : 1;
    UINT fRestFlags : 3;
} SHELLFLAGSTATE, * LPSHELLFLAGSTATE;

Por favor... Alguien me podria ayudar a solucionarlo?? Muchas gracias!!

PD: utilizo Borland C++ Builder 5

[[escafandra]]

Para compilarlo con BCB5 tendrás que añadir lo siguiente al principio de tu archivo cpp:

#define ShlObjHPP
#include <vcl.h>
#pragma hdrstop
 
#include <shlobj.h>
#include <Registry.hpp>

.

Saludos.