Como abrir un archivo con mi aplicacion. (parametros de ejectutable)

[jonydread]

Empezado por escafandra

Ese código no abre nada, solo te permite saber el primer parámetro con el que se ha abierto tu programa. A partir de ese dato tu programa debe saber que hacer, es decir, tu sabrás que es lo que pretendes realizar con ese parámetro.

Saludos.

si necesito que cuando de click derecho sobre un archivo .reg el usuario y seleccione
abrir con>mi aplicacion
el programa se abra y cargue el archivo
ya que abre pero no carga el archivo quisiera saber como tomar la ruta
he revisado en el foro y en google salen con paramstr pero no he encontrado ningun ejemplo claro

Gracias de antemano!!

[ecfisa]

Empezado por jonydread

si necesito que cuando de click derecho sobre un archivo .reg el usuario y seleccione
abrir con>mi aplicacion el programa se abra y cargue el archivo

Hola.

Te pongo un ejemplo muy simple. Sólo agregá un memo al form y el siguiente código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Memo1.Lines.LoadFromFile(ParamStr(1));
  except
    raise Exception.Create('No se puede abrir el archivo');
  end;
end;

Saludos.

[jonydread]

se puede hacer que carge al opendialog donde puse // he intentado pero no lo logro

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    // (ParamStr(1));
  except
    raise Exception.Create('No se puede abrir el archivo');
  end;
end;

[ecfisa]

Hola.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    OpenDialog1.Execute;
  end;
end;

Pero no veo la necesidad de llamar TOpenDialog si ya se está enviando el nombre de archivo en ParamStr(1)...

Un saludo.

[jonydread]

lo que pasa es que tengo todo referenciado a opendialog
un genio amigo !!
asi quedo mi codigo

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
  if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    edit1.Text:=ParamStr(1);
    end

muchas gracias!!

[ecfisa]

Hola jonydread.

Se me ocurrió algo que quizá te pueda interesar incluir.

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
     procedure DragDropFileMSG(var Msg : TMessage); message WM_DROPFILES;
  public
  end;

var
  Form1: TForm1;

implementation 

uses ShellApi;

procedure TForm1.DragDropFileMSG(var Msg: TMessage);
var
  DragDropFileName: array[0..255] of Char;
begin
  DragQueryFile(msg.WParam, 0, DragDropFileName, Length(DragDropFileName));
  DragFinish(Msg.WParam);
  OpenDialog1.FileName:= DragDropFileName;
  Edit1.Text:= DragDropFileName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;
...

Estando abierta tu aplicación y el explorador de windows simultaneamente, seleccioná un archivo desde el último, arrastralo y soltalo sobre el form de tu aplicación.

Un saludo.

[jonydread]

muchas gracias amigo funcionando !!
al arrastrar un archivo a mi aplicacion he hecho que se inicie automaticamente el proceso y estoy tratando de implementar un dialogo final Completado!! y al presionar ok se cierre pero no me funciona muy bien en esta parte tengo el error
hasta ay todo bien

Código Delphi [-]
if ExtractFileExt(nomArchivo) = '.reg' then
    ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)
     else if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
      Application.Terminate;
       end;

Aca el problema en esta linea no se la forma correcta de hacerla
if ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)

Código Delphi [-]
if ExtractFileExt(nomArchivo) = '.reg' then
begin
  if  ShellExecute(Handle, 'open', 'HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL) 
then begin
if MessageDlg('Completado!', MtInformation, [mbOK],0) = mrok then
      Application.Terminate;
    end else if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
      Application.Terminate;
       end;
end;

gracias!!