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:
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:
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.