|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дождатся завершения работы Cmd.exe
Вот код для запуска: (Cmd.exe).
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Shellapi; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute (0, '', 'cmd.exe', ' exit', '%tmp%', SW_Show ); end; end. |
#2
|
|||
|
|||
Использовать CreateProcess. Он вернет тебе хэндл, по которому можно проверять, существует ли еще связанный с ним процесс или уже умер.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
NightTrap (22.04.2015)
|
#3
|
|||
|
|||
Использовать CreateProcess.
Ясно. Последний раз редактировалось NightTrap, 22.04.2015 в 06:58. |