Передача дескрипторов через STARTUPINFO

Как именно передавать дескрипторы через эту структуру дочерним процессам?
Включаю флаг STARTF_USESTDHANDLES, присваиваю наследуемые (созданы через dublicatehandle) дескрипторы в поля структуры, однако все тщетно - программа либо моментально завершается, либо полностью виснет, не исполняя даже первой строчки кода. Можно компилирующийся пример, пожалуйста?

0

1. Создаем канал CreatePipe(), получаем два хендла для его концов: один для чтения, второй для записи. Для STDIN, STDOUT и STDERR каждому свой Pipe. Итого 6 хендлов. Можно обойтись двумя каналами и в STDERR подсунуть тот хендлы от STDOUT, но тогда нельзя будет различить, где OUT, а где ERR. Либо можно вообще в ERR не давать хендлы, но тогда инфу можно потерять.

2. Кладем хендлы в STARTUPINFO. В STDOUT и в STDERR кладем концы, предназначенные для записи. В STDIN конец для чтения. Не перепутать каналы и их хендлы.

3. Другие концы каналов (чтение STDOUT и STDERR и запись STDIN) дублируем через DuplicateHandle(), исходные три закрываем через CloseHandle().

4. Создаем процесс с упомянутым STARTUPINFO. Закрываем те хендлы, которые ушли в процесс в STARTUPINFO.

5. В продублированный конец для записи в STDIN пишем данные через WriteFile(). Из продублированных концов для чтения читаем данные из STDOUT и STDERR. Лучше каждому отдельный поток, ибо там свои извраты.

6. После завершения процесса не забываем закрыть оставшиеся хендлы от 3 каналов, хендл главного потока процесса и хендл самого процесса.

На всякий случай, вот рабочий код для Delphi.

1