Запуск скрипта Python и ожидание его отработки

[Stilet]

Всем доброго. Появилось желание прикрутить использование скриптов Питона к некому проекту. Проект должен запустить указанный ему py файл, и подождать пока питон его не отработает полностью.
Пробую так:

try
 if not CreateProcess(0,'python d:\1\q.py',0,0,false,CREATE_DEFAULT_ERROR_MODE or CREATE_NEW,0,'d:\1',sa,pi)
 then RaiseLastOSError;
except
 on e:exception do  begin write(e.Message);readln;end;
end;

На что получаю AV где-то в kernal32.

После чего пробую так:

        sei.cbSize := sizeof(SHELLEXECUTEINFO);
        sei.fMask := 0;
        sei.Wnd := 0;
        sei.lpVerb := 0;
        sei.lpFile := 'd:\1\q.py';
        sei.lpParameters := 0;
        sei.lpDirectory := 0;
        sei.nShow := SW_MAXIMIZE;
        sei.hInstApp := 0;

ShellExecuteEx(@sei);
WaitForSingleObject(sei.hProcess,INFINITE);

Все отрабатывает, но WaitForSingleObject не дожидается завершения отработки скрипта, пропуская дальше программу.
WinExec не пробовал, поскольку не представляю как его на ожидание поставить

Вопрос: Почему? Питон чем-то от других приложений отличается?
Если запустить так:

python d:\1\q.py

из БАТ файла то все хорошо. Почему же WIN API функции так не отрабатывают?

[waleri]

А вы посмотрите что у вас в sei.hProcess, потом проверьте что возвращает WaitForSingleObject и наконец прочитайте внимательно документацию к ShellExecuteEx (точнее SHELLEXECUTEINFO) и читаем внимательно про hProcess

[raxp]

sei.cbSize := sizeof(SHELLEXECUTEINFO);
sei.fMask := 0;
sei.Wnd := 0;
sei.lpVerb := 0;
sei.lpFile := 'd:\1\q.py';
sei.lpParameters := 0;
sei.lpDirectory := 0;
sei.nShow := SW_MAXIMIZE;
sei.hInstApp := 0;

ShellExecuteEx(@sei);

ничего не хочу сказать, но (пути разумеется тоже полные должны быть):

var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := 'python.exe';
    lpParameters := 'd:\1\q.py';
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result:=True;
    //

  end
  else Result:=False;      
end;

OFFTOP >

Появилось желание прикрутить использование скриптов Питона к некому проекту

к этому http://programmersforum.ru/showthread.php?t=218170 ? Были мысли насчет этого http://www.lymar.ru/Использование%20dll%20из%20Python.

[Stilet]

проверьте что возвращает WaitForSingleObject

Надо же, на студенческие грабли наступил )
Да проверка нужна обязательно.

читаем внимательно про hProcess

A handle to the newly started application
Ты имеешь ввиду это?:

ShellExecuteEx does not always return an hProcess

к этому

Не, тут другое - заменить некоторые библиотеки на программы с открытым кодом. Я подумал, почему бы не питон?

Были мысли насчет этого

Понял, приму на заметку.

[waleri]

Я имел ввиду посмотреть на hProcess и убедившись, что там 0 прочитать вот это:

This member is set on return and is always NULL unless fMask is set to SEE_MASK_NOCLOSEPROCESS. Even if fMask is set to SEE_MASK_NOCLOSEPROCESS, hProcess will be NULL if no process was launched.

[Stilet]

Понял. Учту это.
Кстати на данный момент мне удалось через CreateProcessA решить задачу, непонятно только почему CreateProcessW слажал... (У меня семерка)

[waleri]

Подозреваю, что возможно стринги, которые попали в CreateProcessW не были уникодными. Если А работает а W нет, скорее всего это. Но это так, гадание...

[Stilet]

Хм... Странно получается - DXE вроде юникодит строки...
Ну да ладно - с АНСИ получилось, это уже хорошо.