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

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

[ecfisa]

Hola.

Si queres evaluar el resultado de ShellExecute podrías hacer algo como:

Código Delphi [-]
...
var
  HINSTANCE: Integer;
  ErrorMSG: string;
begin
  OpenDialog1.Filter:= 'Archivos de registro|*.REG';
  with OpenDialog1 do
    if Execute then
    begin
      HINSTANCE:= ShellExecute(Handle,  'open', 'C:\HAND.CMD', PChar(GetShortName(FileName)), nil, SW_NORMAL);
      if HINSTANCE < 32 then
      begin
        case HINSTANCE of
          0: ErrorMSG:= 'Memoria o recursos insuficientes';
          ERROR_FILE_NOT_FOUND: ErrorMSG:= 'Archivo no encontrado';
          ERROR_PATH_NOT_FOUND: ErrorMSG:= 'Ruta no encontrada';
          SE_ERR_ACCESSDENIED:  ErrorMSGr:= 'Acceso denegado';
          //...
        end;
        MessageBox(Handle, PChar(ErrorMSG), 'ERROR', MB_ICONERROR + MB_OK);
        Application.Terminate;
       end;
    end;
end;

Un saludo.

[jonydread]

muchas gracias me sirve el codigo pero solo quisiera saber si se ejecuto shellexecute
asi esta el codigo mas completo
en esta linea tengo si el archivo no corresponde todo funciona ok y quisiera hacer lo mismo si se ejecuta shellexecute un dialogo, aceptar y cierre...

Código Delphi [-]
      if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
      Application.Terminate;

Código Delphi [-]
 if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    edit1.Text:=ParamStr(1);
    if ParamStr(1) > '' then
begin
 if ExtractFileExt(ParamStr(1)) = '.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;
   end;

muchas gracias

[ecfisa]

Empezado por jonydread

solo quisiera saber si se ejecuto shellexecute

Eso exáctamente hace el código que te puse anteriormente. Guarda en la variable HINSTANCE el resultado de la acción de ShellExecute y si hubo un error (el resultado es menor que 32) lo muestra.

Lo único que habría que hacer es agregarlo:

Código Delphi [-]
var
  HINSTANCE: Integer;
  ErrorMSG: string;
begin
  if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    edit1.Text:=ParamStr(1);
    if ParamStr(1) > '' then
  begin
  if ExtractFileExt(ParamStr(1)) = '.reg' then
  begin
    HINSTANCE:= ShellExecute(Handle,  'open', 'C:\HAND.CMD', PChar(GetShortName(FileName)), nil, SW_NORMAL);
    if HINSTANCE < 32 then
    begin
      case HINSTANCE of
        0: ErrorMSG:= 'Memoria o recursos insuficientes';
        ERROR_FILE_NOT_FOUND: ErrorMSG:= 'Archivo no encontrado';
        ERROR_PATH_NOT_FOUND: ErrorMSG:= 'Ruta no encontrada';
        SE_ERR_ACCESSDENIED:  ErrorMSGr:= 'Acceso denegado';
        //...
     end;
     MessageDlg('Error: '+ErrorMSG, mtError, [mbOK],0);
     Application.Terminate;
  end
  ...

Pero no le encuentro sentido a estas líneas:

Código Delphi [-]
 
  if MessageDlg('Archivo invalido!', MtInformation, [mbOK],0) = mrok then
    Application.Terminate;

El usuario recibe el mensaje 'Archivo inválido', no tiene otra opción que aceptar con el botón OK y luego de eso se termina la aplicación. Es decir no tiene sentido evaluar una condición de la que ya sabemos la respuesta...

O directamente hacemos:

Código Delphi [-]
  MessageDlg('Archivo invalido!', mtError, [mbOK],0);
  Application.Terminate;

O si queremos la opinión del usuario:

Código Delphi [-]
 
  if MessageDlg('¿ Desea finalizar ?', mtConfirmation, [mbYes,mbNo],0) = mrYes then
    Application.Terminate;

Un saludo.

[jonydread]

Ok tienes razon gracias probare y comento como me fue...

[jonydread]

todo ok Gracias!