VPF::Как вывести список привелегий?

Poseidon

Дата 19.5.2005, 03:49 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Код

procedure TForm1.Button1Click(Sender: TObject); 
const 
  TokenSize = 800; //  (SizeOf(Pointer)=4 *200) 
var 
  hToken: THandle; 
  pTokenInfo: PTOKENPRIVILEGES; 
  ReturnLen: Cardinal; 
  i: Integer; 
  PrivName: PChar; 
  DisplayName: PChar; 
  NameSize: Cardinal; 
  DisplSize: Cardinal; 
  LangId: Cardinal; 
begin 
  GetMem(pTokenInfo, TokenSize); 
  if not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, 
    hToken) then ShowMessage('OpenProcessToken error'); 
  if not GetTokenInformation(hToken, TokenPrivileges, pTokenInfo, TokenSize, ReturnLen) then 
    ShowMessage('GetTokenInformation error'); 
  GetMem(PrivName, 255); 
  GetMem(DisplayName, 255); 
  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(PrivName +^I + DisplayName); 
  end; 
  FreeMem(PrivName); 
  FreeMem(DisplayName); 
  FreeMem(pTokenInfo); 
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »