Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

[MULTILENGUAJE] RunAndWaitShell

Comenzado por escafandra , ago 21 2018 11:12

Por favor identifícate para responder

3 respuestas en este tema

#1 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 21 agosto 2018 - 11:12

Tras leer este tema Gestionar archivos temporales que se abren con terceros programas donde newtron pregunta como ejecutar el visor predeterminado de diversos archivos al tiempo y saber cuando se cierran para poder borrarlos, vi una propuesta interesante de Casimiro Notevi usando RunAndWaitShell. Las implementaciones que encontré en la red no me gustaron pues todas ellas usan ProcessMessages para evitar evitar el bloqueo de la aplicación y retomar el control al finalizar el visor, además si se ejecuta más de un archivo ya tendremos problemas de sincronismo para identificar cual acaba. El uso de ProcessMessages potencialmente dará problemas dependiendo del flujo de la aplicación y es preferible el uso de Threads.

La idea es interesante pues ShellExecuteEx se encargará de encontrar el visor por defecto de Windows, igual que ShellExecute, solo falta detectar cuando se cierra un visor (o cualquier otra aplicación que se ejecute). Para evitar el bloqueo de de nuestro programa implementaremos la solución en un Thread distinto al principal y nos comunicaremos por un mensaje de windows. Para adaptarnos al API más familiar ShellExecute, Escribiremos una función que admita los mismos parámetros y nos devolverá un ThreadId del Thread que se crea, de esta forma lo tendremos identificado en el caso de abrir más de uno. El Thread esperará a que finalice el proceso y en ese momento enviará un mensaje notificando del ThreadId que se cierra y si se ejecutó correctamente.

Vamos a poner manos a la obra:

Primero diseñamos el mensaje

delphi

const
  RS_FINISH = WM_USER + 1;
{
  Message RS_FINISH
  WParam: ThreadId del proceso ejecutado y finalizado
  LParam: BOOL True si el proceso se ejecutó correctamente
}

Nuestra aplicación deberá poder responder a ese mensaje para ser notificada:

delphi

procedure OnRunAndWaitShell(var Msg: TMessage); message RS_FINISH;

Y ahora vamos a diseñar la función del Thread:

delphi

function ThRunAndWaitShell(var Info: TShellExecuteInfo): BOOL; stdcall;
begin
  Result:= ShellExecuteEx(@Info);
  WaitForSingleObject(Info.hProcess, INFINITE);
  CloseHandle(Info.hProcess);
  SendMessage(Info.wnd, RS_FINISH, GetCurrentThreadId, LPARAM(Result));
end;

Lo que sigue es una función que encapsula la ejecución del Thread de la función anterior y que admite los mismos parámetros que ShellExecute y que devuelve el identificador del Thread ejecutado (ThreadId)

delphi

function RunAndWaitShell(Handle: THandle; Operation, FileName, Parameters, Directory: String; nShowCmd: Integer): DWORD;
function RunAndWaitShell(Handle: THandle; Operation, FileName, Parameters, Directory: String; nShowCmd: Integer): DWORD;
function ThRunAndWaitShell(var Info: TShellExecuteInfo): BOOL; stdcall;
begin
  Result:= ShellExecuteEx(@Info);
  WaitForSingleObject(Info.hProcess, INFINITE);
  SendMessage(Info.wnd, RS_FINISH, GetCurrentThreadId, LPARAM(Result));
end;
const
{$J+}
  Info: TShellExecuteInfo = ();
  _Operation: array[0..20] of CHAR = '';
  _FileName: array[0..MAX_PATH] of CHAR = '';
  _Parameters: array[0..MAX_PATH] of CHAR = '';
  _Directory: array[0..MAX_PATH] of CHAR = '';
begin
  lstrcpyn(_Operation, PChar(Operation), 20);
  lstrcpyn(_FileName, PChar(FileName), MAX_PATH);
  lstrcpyn(_Parameters, PChar(Parameters), MAX_PATH);
  lstrcpyn(_Directory, PChar(Directory), MAX_PATH);
 
  with Info do
  begin
    cbSize:= SizeOf(Info);
    fMask:= SEE_MASK_NOCLOSEPROCESS;
    wnd:= Handle;
    lpVerb:= _Operation;
    lpFile:= _FileName;
    lpParameters:= _Parameters;
    lpDirectory:= _Directory;
    nShow:= nShowCmd;
    hInstApp:= 0;
  end;
  CloseHandle(CreateThread(nil, 0, @ThRunAndWaitShell, @Info, 0, Result));
{$J-}
end;

Las directivas {$J+} y {$J-} son para que la constante Info pueda ser modificada por código con lo que se comporta como una variable static de C cuya vida será la de la aplicación. De esta forma no tenderemos que guardar una por cada Thread ejecutado. Recordad que los parámetros que se pasen a un thread deben tener la misma vida que el propio Thread.

Ahora vemos el código de ejemplo completo de una APP con dos botones, dos Labels. Cada botón ejecuta una aplicación que al acabar mostrará una caja de mensaje con el ThreadID y si la ejecución fue correcta (1) ó no (0).

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;
 
const
  RS_FINISH = WM_USER + 1;
{
  Message RS_FINISH
  WParam: ThreadId del proceso ejecutado y finalizado
  LParam: BOOL True si el proceso se ejecutó correctamente
}
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure OnRunAndWaitShell(var Msg: TMessage); message RS_FINISH;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function RunAndWaitShell(Handle: THandle; Operation, FileName, Parameters, Directory: String; nShowCmd: Integer): DWORD;
function ThRunAndWaitShell(var Info: TShellExecuteInfo): BOOL; stdcall;
begin
  Result:= ShellExecuteEx(@Info);
  WaitForSingleObject(Info.hProcess, INFINITE);
  SendMessage(Info.wnd, RS_FINISH, GetCurrentThreadId, LPARAM(Result));
end;
const
{$J+}
  Info: TShellExecuteInfo = ();
  _Operation: array[0..20] of CHAR = '';
  _FileName: array[0..MAX_PATH] of CHAR = '';
  _Parameters: array[0..MAX_PATH] of CHAR = '';
  _Directory: array[0..MAX_PATH] of CHAR = '';
begin
  lstrcpyn(_Operation, PChar(Operation), 20);
  lstrcpyn(_FileName, PChar(FileName), MAX_PATH);
  lstrcpyn(_Parameters, PChar(Parameters), MAX_PATH);
  lstrcpyn(_Directory, PChar(Directory), MAX_PATH);
 
  with Info do
  begin
    cbSize:= SizeOf(Info);
    fMask:= SEE_MASK_NOCLOSEPROCESS;
    wnd:= Handle;
    lpVerb:= _Operation;
    lpFile:= _FileName;
    lpParameters:= _Parameters;
    lpDirectory:= _Directory;
    nShow:= nShowCmd;
    hInstApp:= 0;
  end;
  CloseHandle(CreateThread(nil, 0, @ThRunAndWaitShell, @Info, 0, Result));
{$J-}
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= IntToStr(RunAndWaitShell(Handle, 'open', 'd:\Prueba.txt', '', '', SW_SHOW));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label2.Caption:= IntToStr(RunAndWaitShell(Handle, 'open', 'd:\Prueba.pdf', '', '', SW_SHOW));
end;
 
procedure TForm1.OnRunAndWaitShell(var Msg: TMessage);
begin
  // Fin de ejecución
  ShowMessage('Fin ' + IntToStr(Msg.WParam) + ' ('  + IntToStr(Msg.LParam) + ')');
end;
 
end.

Ya tenemos nuestro ShellExecute que espera a la finalización y notifica de ello.
Probado en delphi7 y Berlin

Que os sirva para algo o para experimentar.

Saludos.

1

Volver arriba

#2 escafandra

Advanced Member

Administrador
4.111 mensajes

LocationMadrid - España

Escrito 21 agosto 2018 - 11:17

Como no podía ser de otra manera voy a publicar la versión para Builder:

Unit1.h

cpp

#include <Forms.hpp>
//---------------------------------------------------------------------------
 
 
#define RS_FINISH WM_USER + 1
 
class TForm1 : public TForm
{
__published:	// IDE-managed Components
  TLabel *Label1;
  TLabel *Label2;
  TButton *Button1;
  TButton *Button2;
  void __fastcall Button1Click(TObject *Sender);
  void __fastcall Button2Click(TObject *Sender);
private:
  void  __fastcall OnRunAndWaitShell(TMessage &Message);
public:		// User declarations
  __fastcall TForm1(TComponent* Owner);
 
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(RS_FINISH, TMessage, OnRunAndWaitShell);
END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp

cpp

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
/*
Message RS_FINISH
WParam: ThreadId del proceso y finalizado
LParam: BOOL True si el proceso se ejecutó correctamente
*/
 
BOOL __stdcall WINAPI ThRunAndWaitShell(LPSHELLEXECUTEINFOA Info)
{
  BOOL R = ShellExecuteExA(Info);
  WaitForSingleObject(Info->hProcess, INFINITE);
  CloseHandle(Info->hProcess);
  SendMessage(Info->hwnd, RS_FINISH, GetCurrentThreadId(), R);
  return R;
}
 
DWORD RunAndWaitShell(HWND hWnd, PCHAR Operation, PCHAR FileName, PCHAR Parameters, PCHAR Directory, int nShowCmd)
{
  static SHELLEXECUTEINFOA Info;
  static CHAR fileName[MAX_PATH];
  static CHAR operation[20];
  static CHAR directory[MAX_PATH];
  static CHAR parameters[MAX_PATH];
  DWORD ThreadId;
 
  lstrcpynA(fileName, FileName, MAX_PATH);
  lstrcpynA(directory, Directory, MAX_PATH);
  lstrcpynA(operation, Operation, 20);
  lstrcpynA(directory, Directory, MAX_PATH);
 
  Info.cbSize = sizeof(Info);
  Info.fMask  = SEE_MASK_NOCLOSEPROCESS;
  Info.hwnd   = hWnd;
  Info.lpVerb = operation;
  Info.lpFile = fileName;
  Info.lpParameters = parameters;
  Info.lpDirectory  = directory;
  Info.nShow = nShowCmd;
  Info.hInstApp = 0;
 
  CloseHandle(CreateThread(0, 0, (LPTHREAD_START_ROUTINE)ThRunAndWaitShell, &Info, 0, &ThreadId));
  return ThreadId;
}
 
DWORD RunAndWaitShell2(HWND hWnd, PCHAR Operation, PCHAR FileName, PCHAR Parameters, PCHAR Directory, int nShowCmd)
{
  static SHELLEXECUTEINFOA Info;
  static CHAR fileName[MAX_PATH];
  static CHAR operation[20];
  static CHAR directory[MAX_PATH];
  static CHAR parameters[MAX_PATH];
  DWORD ThreadId;
 
  lstrcpynA(fileName, FileName, MAX_PATH);
  lstrcpynA(directory, Directory, MAX_PATH);
  lstrcpynA(operation, Operation, 20);
  lstrcpynA(directory, Directory, MAX_PATH);
 
  Info.cbSize = sizeof(Info);
  Info.fMask  = SEE_MASK_NOCLOSEPROCESS;
  Info.hwnd   = hWnd;
  Info.lpVerb = operation;
  Info.lpFile = fileName;
  Info.lpParameters = parameters;
  Info.lpDirectory  = directory;
  Info.nShow = nShowCmd;
  Info.hInstApp = 0;
 
  struct{
    static BOOL __stdcall WINAPI ThRunAndWaitShell(LPSHELLEXECUTEINFOA Info)
    {
      BOOL R = ShellExecuteExA(Info);
      WaitForSingleObject(Info->hProcess, INFINITE);
      SendMessage(Info->hwnd, RS_FINISH, GetCurrentThreadId(), R);
      CloseHandle(Info->hProcess);
      return R;
    }
  } Th;
 
  CloseHandle(CreateThread(0, 0, (LPTHREAD_START_ROUTINE)Th.ThRunAndWaitShell, &Info, 0, &ThreadId));
  return ThreadId;
}
 
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption = IntToStr((int)RunAndWaitShell(Handle, "open", "d:\\Prueba.docx", 0, 0, SW_SHOW));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label2->Caption = IntToStr((int)RunAndWaitShell(Handle, "open", "d:\\Prueba.pdf", 0, 0, SW_SHOW));
}
//---------------------------------------------------------------------------
 
void  __fastcall TForm1::OnRunAndWaitShell(TMessage &Message)
{
  // Fin de ejecución
  ShowMessage("Fin " + IntToStr((int)Message.WParam) + " ("  + IntToStr((int)Message.LParam) + ")");
}

El comportamiento y las explicaciones son idénticas a la versión delphi.
En esta ocasión he implementado dos formas equivalentes de la función para los entusiastas de C/C++

Probado en C++Builder BCB5 y Berlin

Saludos.