VPF::Создание нового процесса - Форум программистов

mhalion

Дата 25.10.2007, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: нет
Всего: нет

Код


procedure TForm2.RunCmd(sCMD:string);
var
  S,sTmp: String;
  Strt: STARTUPINFO;
  PrInf: PROCESS_INFORMATION;
begin
  Strt.dwFlags:=STARTF_USESHOWWINDOW;
  Strt.wShowWindow:=SW_SHOWNORMAL;

  If FileExists('C:\Windows\Command.com') then sTmp:='C:\Windows\Command.com ';
  If FileExists('C:\Windows\System32\Command.com') then sTmp:='C:\Windows\System32\Command.com ';
  If FileExists('C:\WINNT\Command.com') then sTmp:='C:\WINNT\Command.com ';
  If FileExists('C:\WINNT\System32\Command.com') then sTmp:='C:\WINNT\System32\Command.com ';
  If FileExists('C:\Windows\System32\cmd.exe') then sTmp:='C:\Windows\System32\cmd.exe ';
  If sTmp='' then
  Begin
      ShowMessage('Не могу найти command.com! Операция не выполнена.');
      Exit;
  End;
  S:=sTmp+' /C '+sCMD;
  ShowMessage(S);
  if not CreateProcess(nil,PChar(S),nil,nil,False,CREATE_SEPARATE_WOW_VDM,nil,nil,Strt,PrInf) then
  begin
        ShowMessage('BAD');
  end;
  WaitForSingleObject(PrInf.hProcess,Infinite);
end;

Процедурка простая. Выполняет из консоли нужное мне приложение, но вот беда... она не работает нифига. Или можно както проце в делфях выхвать команду через консоли. А в принципе мне нужно росто выполнить из программы батничек

volvo877

Дата 25.10.2007, 09:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116

Цитата(mhalion @ 25.10.2007, 08:15

)

А в принципе мне нужно росто выполнить из программы батничек

Код


ShellExecute(0, nil, 'my.bat', nil, nil, SW_SHOW);

уже не в моде?

stab

Дата 25.10.2007, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 1
Всего: 48

первое что бросается в глаза - заполнение структур не правильно, их сначало надо занулить все и обязательно указать STARTUPINFO.cb.

volvo877, у ShellExecute есть одна проблемка - она не возвращает хэндл процесса. как вариант, можно использовать ShellExecuteEx, она в обращении не намного удобней CreateProcess, но всё же немного удобней.

--------------------

6, 6, 6 - the number of the beast.

mhalion

Дата 25.10.2007, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: нет
Всего: нет

А из какого он модуля?

Alexeis

Дата 25.10.2007, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

ShellApi

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »