CreateProcessAsUser и ERROR_NOACCESS

[Даниил_глазко]

Всем привет! Использую следующий код:

procedure startApplication(filename, session: string);
var
struc1: STARTUPINFO;
begin
log('Attemp to start '+filename+' with params '+session);
log('Filling structure');
try
struc1.cb := SizeOf(STARTUPINFO);

struc1.lpDesktop := PChar('winsta0\default');
struc1.dwFlags := STARTF_USESHOWWINDOW;
struc1.wShowWindow := SW_SHOW;
except log('Filling structure failed') end;
CreateProcessAsUser(UserToken.TokenHandle, nil,
      PChar(gameDirectory+' '+session),
       nil, nil, false, Create_default_error_mode, nil, nil, struc1, struc2);
       log(inttostr(getLastError()));
end;

В логе получаю:

Attemp to start C:\testPrj\Project1.exe with params test
Filling structure
998

Приложение не запускается. В интернете говорят, что скорее всего проблема в том, что я неправильно работаю со структурой. Помогите пожалуйста разобраться с этим. Заранее спасибо!

[Человек_Борща]

И где описана struc2?

[Пепел Феникса]

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

[Даниил_глазко]

Сообщение от Человек_Борща

И где описана struc2?

{$R *.DFM}
var
struc2: PROCESS_INFORMATION;

Сообщение от Пепел Феникса

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

это которая ZeroMemory(@struc1, SizeOf(struc1));?