Необходимо получить сабж. В общем вся проблема здесь:
Код:
for i := 0 to pTokenInfo.PrivilegeCount - 1 do
begin
DisplSize := 255;
NameSize := 255;
LookupPrivilegeName(nil, pTokenInfo.Privileges[i].Luid, PrivName, Namesize);
LookupPrivilegeDisplayName(nil, PrivName, DisplayName, DisplSize, LangId);
ListBox1.Items.Add(DisplayName);
массив Privileges имеет размер = 1. Выводит одну привилегию и делает RangeCheckError.
Подскажите, пожалуйста, как получить все установленные привилегии для процесса.