Скачать: CL | DM;

Почему ничего не происходит при выполнении данного кода ...   Найти похожие ветки 

← →
mctarik ©   (2006-06-18 20:36) [0]

function ExecCmd(const aCommand,aPath: String;const aShow, aWaitExit: Boolean): Boolean;
var
pi:PROCESS_INFORMATION;
si:STARTUPINFO;
cmdLine,Path: String;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
si.dwFlags := STARTF_FORCEONFEEDBACK+STARTF_USESHOWWINDOW;
if aShow then si.wShowWindow := SW_SHOWNORMAL else si.wShowWindow := SW_HIDE;
Path := aPath;
cmdLine := aCommand;
Result :=
       CreateProcess( nil
                      PChar(cmdLine),
                      nil,
                      nil,
                      False,
                      0,
                      nil,
                      PChar(Path),
                      si,
                      pi );
if Result then
begin
  CloseHandle(pi.hThread);
  if aWaitExit then WaitForSingleObject( pi.hProcess, infinite );
  CloseHandle(pi.hProcess);
end;
end;

Вызов:
ExecCmd("c:\winnt\system32\cmd.exe /c ping.exe 192.168.0.1>c:\file1.txt","c:\winnt\system32\",true,true);

Почему у меня тоже ничего непишет в фаил, да и не видно запуска ping.exe

---

← →
Virgo_Style ©   (2006-06-18 21:15) [1]

> if Result then


напиши чего-нибудь и в else...

---

← →
DrPass ©   (2006-06-18 21:36) [2]

> Почему у меня тоже ничего непишет в фаил

И не должно. CreateProcess запускает процесс и передает в него командную строку. Выделение из строки команд перенаправления вывода CreateProcess не делает. Для этого есть поле hStdOut в StartupInfo

---

← →
Пусик ©   (2006-06-18 21:50) [3]

> И не должно. CreateProcess запускает процесс и передает
> в него командную строку. Выделение из строки команд перенаправления
> вывода CreateProcess не делает.


Это вряд ли.


> mctarik ©   (18.06.06 20:36) [0]


Ты даже код как следует не проверил.

Result :=
CreateProcess( nil

Вот здесь запятая должна быть.
У меня все пркекрасно запускается.
Подумай немного головой, какой у тебя системный каталог, где находится cmd.exe, где ping.exe.

---

← →
Anatoly Podgoretsky ©   (2006-06-18 21:56) [4]

DrPass ©   (18.06.06 21:36) [2]

Зато делает cmd.exe

---

← →
mctarik ©   (2006-06-18 22:57) [5]

> Пусик ©   (18.06.06 21:50) [3]

Код то я проверил, и у меня запятая стоит а в вашем примере нет8-)
А вот про каталог подумаю...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c