Запуск с правами дминистратора и получение кода завершения программы

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

Доброго времени суток!

Есть некое самописное ПО, требующее прав. администратора, по завершению работы возвращает специфический код ответа.

В ПО уже включен манифест адм. прав.

Пробовал ShellExecuteEx:

var
  ExtApp: string;
  SEI: TShellExecuteInfo;
  aCode: DWORD;
begin
  ExtApp := '';
  ZeroMemory(@SEI, SizeOf(TShellExecuteInfo));
  SEI.cbSize := SizeOf(TShellExecuteInfo);
  SEI.lpFile := PChar(ExtApp);
  SEI.lpDirectory := PChar(ExtractFilePath(PluginsWeb));
  SEI.lpParameters := PChar('"' + '"');
  SEI.lpVerb := PChar('runas');
  SEI.fMask := SEE_MASK_DEFAULT;
  SEI.nShow := SW_HIDE;
  Result := ShellExecuteEx(@SEI);
  if Result then
  begin
    aCode := 777;
    WaitForSingleObject(SEI.hProcess, INFINITE);
    GetExitCodeProcess(SEI.hProcess, aCode);
  end;
  Result := (aCode = NO_ERROR);
end;

Запускается с адм. правами но код возврата всегда > 0, хотя это не так. Судя по результату, ПО записало куда надо значение, и вернуло код возврата = 0.

В качестве lpVerb был и open, итог тот же.


С CreateProcess ситуация сложнее:
ПО вообще не просит адм. прав при запуске(визуально никаких подтверждений), и как следствие не делает то, на что запрограммировано, но возвращает код возврата оО.

Не использовать адм. привилегии нельзя. Тупик.


Проблема решена. SEE_MASK_NOCLOSEPROCESS