10 replies to this topic

[monchito_elroro]

Buenas amigos ..........tengo una duda y quisiera que me dieran una mano.
miren tengo un programita que externamente ejecuta el "cmd" y a la vez unos
comandos para éste.
Todo trabaja bien pero me gustaría que cuando acabe de hacer su trabajo el
"cmd" automaticamente me aparezca un cuadro de dialogo indicando que todo
ha finalizado.

este es el código que uso:

delphi

unit registro;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, MaskEdit, ShellAPI;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  SW_SHOW, SW_SHOWNORMAL: integer;
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  ShellExecute(Form1.Handle, nil, 'cmd.exe', '/c dir /s>c:\registro.txt', nil, SW_SHOWNORMAL);
  
  begin
    showmessage('Se acabo....todo');
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin  
 
end;
 
initialization
  {$I registro.lrs}
 
end.

como se abran dado cuenta abajo del código de shellexecute puse:

delphi

begin
    showmessage('Se acabo....todo');
end;

Pensando que me iba a ayudar, pero lo que hace es mostrar la ventanita ni bien
presiono el boton para que comienze todo...... y lo que me gustaría es que
salga la ventanita de showmessage cuando acabe de trabajar el "cmd" lo cual
le toma un tiempo.

Les pido su ayuda, gracias.

[luk2009]

Mira esto y dime si eso es lo que necesitas

Delphi Al Limite

[mightydragon_lord]

Esto es lo que necesitas
http://wiki.freepasc...nal_Programs/es

[monchito_elroro]

gracias por sus respuestas
he encontrado unos pasos utilizando  "Tprocess"
lo probaré y mañana si es posible les traigo el código..........

[luk2009]

Perdona, pero por la rapidez, no me vi que era para lazarus.  La edad no perdona!!!

[monchito_elroro]

Buenas amiguitos, como les decía aca les traigo mis avances
este es el código que de momento me ha ayudado, pero no se si habría
alguna manera de ocultar la ventanita del CMD para que solo se vea
el programa principal, o si es posible minimizar este CMD.

bueno ahí les mando mi código:

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, process, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  unproceso: tprocess;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  unproceso:= Tprocess.Create(nil);
  unproceso.CommandLine:='"C:\Windows\System32\cmd.exe" /c dir /s';
  //unproceso.Options:= unproceso.Options + [poNoConsole];   // este lo puse para que la consola se oculte pero da problemas.
  unproceso.Options:= unproceso.Options + [poWaitOnExit];
  unproceso.Execute;
  unproceso.Free;
  begin
    showmessage('Listo.....!!!!!');
  end;
end;
 
end.

Agradezco cualquier ayuda.......

[mightydragon_lord]

[pascal]TProcess.ShowWindow := swoNone;[/pascal]

[monchito_elroro]

Gracias mightydragon_lord por tu respuesta  pero al probarlo sigue sin ocultar el cmd, te paso mi código para que vean que estoy haciendo mal:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  unproceso:= Tprocess.Create(nil);
  unproceso.ShowWindow := swoNone;   // este es el código de mightydragon_lord
  unproceso.CommandLine:='"C:\Windows\System32\cmd.exe" /c dir /s';
  //unproceso.Options:= unproceso.Options + [poNoConsole];   // este lo puse para que la consola se oculte pero da problemas.
  unproceso.Options:= unproceso.Options + [poWaitOnExit];
  unproceso.Execute;
  unproceso.Free;
  begin
    showmessage('Listo.....!!!!!');
  end;
end;

gracias por su tiempo.....

[martinartaza]

Yo para esconder ventanas, hago lo siguiente. a lo que tu quieres hacer lo guardo en un archivo .bat o sea crea un archivo bat con la instrucción que tu mandas.
Luego con un programa llamado "Quick Batch File Compiler" genero un .exe sin ventanas, es un programa muy intuitivo que recibo un .bat y genera un .exe sin ventana, luego desde tu aplicación lo único que debes hacer es llamar al .exe.

No se si te servirá, pero prueba lo y cuéntanos como te fue.

PD: El programa Quick Batch File Compiler, es ideal para crear script que hacen backup en la base de datos y luego desde "tareas programadas de windows" lo llamen, de esa manera te evitas que el usuario cierre la ventana de dos y que el backup no se realice.

[mightydragon_lord]

delphi

TProcess.[color=rgb(32, 32, 32)]ShowWindow[/color] := swoNone;

Este también te puede servir.

[monchito_elroro]

Gracias mightydragon_lord  probaré tu respuesta..............

y a martinartaza también gracias por el dato, aunque ya conocía programas como el que mencionas y una idea que se me ocurre es:

sería posible este BAT meterlo dentro de mi EXE para sea uno solo o en tal caso......