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

← →
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.

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

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

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