[MaxAndAnton]

Необходимо получить сабж. В общем вся проблема здесь:

Код:

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.
Подскажите, пожалуйста, как получить все установленные привилегии для процесса.