Странности с CreateProcessWithLogonW

Доброго всем времени суток.
Столкнулся с одной интересной проблемой - CreateProcessWithLogonW ведет себя по-разному в разных местах программы (сразу оговорюсь - я трезвый и ни чего не курил .

Создадим в Делфях новый проект с пустой формой.
Создадим процедуру с вот таким вот содержанием:

Код (Text):

1. procedure RunSomeProcess;
2. var
3.   si: TSTARTUPINFO;
4.   pif: PROCESS_INFORMATION;
5. begin
6. si.cb := SizeOf(TSTARTUPINFO);
7. si.dwFlags  := STARTF_USESHOWWINDOW;
8. si.wShowWindow := SW_SHOWDEFAULT;
9. si.lpReserved := nil;
10. si.lpDesktop := nil;
11. si.lpTitle := nil;
12. CreateProcessWithLogonW('Test', nil, 'test', 0, nil, 'c:\WINDOWS\system32\calc.exe', 0, nil, nil, si, pif);
13. end;

Естественно, пользователя Test нужно создать заранее (я создал его с правами админа). Так же нужно убедиться, что служба "Вторичный вход в систему" запущена.

Попробуем теперь вызвать RunSomeProcess при загрузке формы:

Код (Text):

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3. RunSomeProcess;
4. end;

Калькулятор запустился, но как... Целых два раза мы лицезреем "ошибку при инициализации приложения (0xc0000005)" и наш подопытный умирает.

Дальше кинем на форму таймер (Interval == 1000) и вызовем RunSomeProcess в его обработчике:

Код (Text):

1. procedure TForm1.Timer1Timer(Sender: TObject);
2. begin
3. RunSomeProcess;
4. Timer1.Enabled := false;
5. end;

Калькулятор вообще не запустился. GetLastError возвращает ERROR_NO_TOKEN.

Теперь изменим немного код в обработчике таймера, просто скопировав содержимое функции RunSomeProcess:

Код (Text):

1. procedure TForm1.Timer1Timer(Sender: TObject);
2. var
3.   si: TSTARTUPINFO;
4.   pif: PROCESS_INFORMATION;
5. begin
6. si.cb := SizeOf(tstartupinfo);
7. si.dwFlags  := STARTF_USESHOWWINDOW;
8. si.wShowWindow := SW_SHOWDEFAULT;
9. si.lpReserved := nil;
10. si.lpDesktop := nil;
11. si.lpTitle := nil;
12. CreateProcessWithLogonW('Test', nil, 'test', 0, nil, 'c:\WINDOWS\system32\calc.exe', 0, nil, nil, si, pif);
13. Timer1.Enabled := false;
14. end;

Подопытный запустился и прекрасно работает.

Вот такие вот пироги. У кого-нибудь есть мысли, отчего такой беспредел творится?

 

занулять si не пробовал?

 

Ай-ай-ай... Что-то я, действительно, про это даже не подумал - видать заработался совсем.
Вопрос закрыт.

 

Twister
Ай-яй, стыд и позор =)

 

Mental_Mirror
Да не говори. Ну да ладно - с кем не бывает.
К модерам просьба - топик снести, а то действительно стыд и позор