[T232006]

Здравствуйте!
У меня есть консольное приложение, написанное на C#, закидывающее некий файл на GoogleDrive. Это приложение нужно запустить из приложения Delphi, но при этом дождаться окончания загрузки (то есть, ничего не делать, пока консольное приложение работает). Через ShellExecute всё работает замечательно, но приложение не дожидается окончания работы консоли. Я использую следующую функцию:

Код:

function WinExecAndWait(Filename, params, dir: string):cardinal;
    var
    WorkDir, programName:string;
     StartupInfo:TStartupInfo;
     ProcessInfo:TProcessInformation;
    begin
       GetDir(0,WorkDir);
       programName:=WorkDir+'\'+dir+'\'+FileName;
       FillChar(StartupInfo,Sizeof(StartupInfo),#0);
     StartupInfo.cb:= Sizeof(StartupInfo);
     StartupInfo.dwFlags:= STARTF_USESHOWWINDOW;
     StartupInfo.wShowWindow:= SW_SHOW;
     if not CreateProcess(PChar(ProgramName),
      PChar(params),
      nil,
      nil,
      false,
      CREATE_NEW_CONSOLE or
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      StartupInfo,
      ProcessInfo) then result := 0
     else begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, result);
     end;
  end;

Функция полностью работает, если нужно запустить тестовое приложение (тестовое приложение выводит в консоль строки, которые были в параметре), однако моргнет и сразу выключается, если запускается целевое консольное приложение.
Код консольного приложения такой:

Код:

internal class Program
{
	static async Task Main(string[] args)
	{
		var gu = GoogleUploader.Upload(args[0], args[1], args[2]);
		await gu;
	}
}

В чем может быть дело? Почему shellExecute отрабатывает, а описанная выше отрабатывает только тестовые? Весь день уже убил.

[lmikle]

В свое время мучался с подобной проблемой с POS-терминалом.
Решилось подбором нужной комбинации параметров/флагов у CreateProcess.

Еще можно попробовать запустить это дело через cmd.exe
Если правильно помню, то

Код:

cmd.exe /c [command] [args]

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

[T232006]

данное консольное приложение ничего не выводит на экран и при запуске из командной строки отрабатывает прекрасно (файл появляется в GoogleDrive). Даже с ShellExecute работает прекрасно. Очевидно, что ShellExecute запускает CreateProcess с какими-то параметрами, но вот с какими... В delphi он вызывается из dll ShellAPI и подглядеть что там и как не представляется возможным. Насчет игры с параметрами - возможно, однако все параметры CreateProcess известны и я даже не знаю, в каком из них может быть подвох.

[lmikle]

Ну, для начала, тогда если у тебя CreateProcess вернул FALSE (т.е не выполнился), то надо вызвать GetLastError и посмртреть код ошибки.

[T232006]

нет, createProcess не вернул false. Он отработал нормально, появилось окно и сразу исчезло, хотя должно было висеть всё время пока идет закачка.

[lmikle]

Это значит, что все-таки процесс запускается. Но, например, параметры переданы не совсем правильно.
Сделай командный файл и внутри него выведи какие парамерты передаются. Ну или в своей тестовой обманке выведи в файл лога.
Например, у тебя в пути есть пробелы. В этом случае надо кавычить значения.