[EviLrul]

Код:

WinExec ('net use b: \\192.168.1.10\Inst', SW_SHOW);

команда net use отрабатывает, всё хорошо, а вот...

Код:

WinExec ('start /wait \\192.168.1.10\inst\instal\NetDisk.bat', SW_SHOW);

команда start отрабатывать не хочет, ни ошибки, ни запуска БАТ-файла не происходит...

если же в командной строке выполнить start /wait \\192.168.1.10\inst\instal\NetDisk.bat, то БАТ-файл стартует.

подскажите плз, в чём кривость моих рук?

[NumLock]

Код:

procedure CreateProcess(CommandLine: String);
var
  startupinfoa: TStartupInfo;
  processinformation: TProcessInformation;
begin
  ZeroMemory(@startupinfoa, SizeOf(TStartupInfo));
  startupinfoa.cb:=SizeOf(TStartupInfo);
  startupinfoa.dwFlags:=STARTF_USESHOWWINDOW;
  startupinfoa.wShowWindow:=SW_HIDE;
  Windows.CreateProcess(nil, PChar(CommandLine), nil, nil, False, 0, nil, nil,
    startupinfoa, processinformation);
  WaitForSingleObject(processinformation.hProcess, INFINITE);
  CloseHandle(processinformation.hThread);
  CloseHandle(processinformation.hProcess);
end;

Код:

CreateProcess('z.bat');

[EviLrul]

Уважаемый NumLock, большое спс за отзывчивость!
Хотелось бы Вас попросить прокоментить ваш код, хотелось бы лучше его понять... т.к. использовал ранее практически как я посмотрю аналогичный код...

Код:

procedure Start(name: string);
var
   si: STARTUPINFO;
   pi: PROCESS_INFORMATION;
begin
   ZeroMemory(@si,sizeof(si));
   si.cb:=SizeOf(si);
   if not CreateProcess(nil, PChar(name), nil, nil, False, 0, nil, nil, si, pi) then begin
      ShowMessage( 'CreateProcess failed.' );
      Exit;
   end;
   WaitForSingleObject( pi.hProcess, INFINITE );
   CloseHandle( pi.hProcess );
   CloseHandle( pi.hThread );
   //ShowMessage('Done !');
end;

Код:

if form1.CheckBox4.Checked=true then Start(Rn[1,2]+Rn[4,1]+'7Zip\Inst7z.bat');

и на разных ПК и разных ОС (winXP, win7), то стартует, то выдаёт по не понятной мне закономерности "CreateProcess failed" (я так понимаю что CreateProcess не отрабатывал в какие то моменты) может у меня всё же код кривой? поможите чем сможите...

А так же интересно, почему не отрабатывает все же мой вариант, есть предположения?

[poli-smen]

Сообщение от EviLrul

Хотелось бы Вас попросить прокоментить ваш код, хотелось бы лучше его понять...

Что именно в этом коде непонятно? Здесь центральное место это вызов API-функции CreateProcess, всё что до этого - подготовительные операции, то что после - завершающие операции. API-функция WaitForSingleObject ожидает сигнала, в данном случае бесконечно (INFINITE), в случае с хэндлом процесса сигналом является завершение приложения, т.е. эта функция в данном случае фактически "повесит" запускающее приложение пока не завершится запускаемое приложение.
По поводу функции WinExec - она очень древняя и ей лучше не пользоваться. Лучшая ей замена это CreateProcess или же менее предпочтительная ShellExecute.

Сообщение от EviLrul

и на разных ПК и разных ОС (winXP, win7), то стартует, то выдаёт по не понятной мне закономерности "CreateProcess failed" (я так понимаю что CreateProcess не отрабатывал в какие то моменты) может у меня всё же код кривой? поможите чем сможите...

Самого факта что процесс не был запущен не достаточно. В случае ошибки CreateProcess устанавливает так же и код ошибки который можно узнать API-функцией GetLastError и декодировать её в осмысленный текст API-функцией SysErrorMessage. Или же вместо этого можно просто вызвать исключение функцией RaiseLastOSError.

Сообщение от EviLrul

А так же интересно, почему не отрабатывает все же мой вариант, есть предположения?

Во-первых не указано расширение запускаемого файла - имя у этого файла скорее всего не просто "start", а "start.exe" - вот так и нужно указывать в WinExec.
Во-вторых возможно это файл не находится ни в одной из тех папок в которых WinExec может его найти, поэтому желательно указывать перед именем файла и полный путь к нему, или как минимум устанавливать соответствующую текущую директорию с помощью SetCurrentDir.

[Freeman]

Сообщение от poli-smen

имя у этого файла скорее всего не просто "start", а "start.exe" - вот так и нужно указывать в WinExec.

ЕМНИП, start -- это внутренняя команда cmd, а не отдельное приложение.

[NumLock]

Сообщение от EviLrul

А так же интересно, почему не отрабатывает все же мой вариант, есть предположения?

The WinExec function runs the specified application.
так нет такого приложения start!