Консультация № 55317
13.09.2006, 18:08
0.00 руб.
0 5 2
Доброго времени суток. Вроде простая задача, но не могу решить: как из программы запустить командную строку DOS?

Обсуждение

Неизвестный
13.09.2006, 18:32
общий
это ответ
Здравствуйте, Elpher2006!
ShellExecute(0, ‘open‘, ‘cmd.exe‘, nil, nil, SW_NORMAL);

подключить модуль ShellApi;
Неизвестный
13.09.2006, 19:10
общий
это ответ
Здравствуйте, Elpher2006!

Посмотрите простую функцию WinExec:

h:=WinExec(‘C:\prog1.exe /x /y /z‘, SW_SHOWNORMAL);
Неизвестный
13.09.2006, 19:48
общий
usesShellApi;procedure TForm1.Button1Click(Sender: TObject);begin ShellExecute(Handle,nil,PChar(‘cmd.exe‘),nil,nil,SW_SHOWNORMAL);end;
Неизвестный
13.09.2006, 22:16
общий
WinExec не рекомендован к использованию в настоящее время.
Неизвестный
15.09.2006, 20:21
общий
Спасибо, уже справился.
Форма ответа