Форум: "Потрепаться";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Вниз

Получение Debug привелегий   Найти похожие ветки 

← →
Piter   (2004-01-11 01:40) [0]

Как осуществить сабж? Ниженаписанный код не работает

procedure TForm1.FormCreate(Sender: TObject);
var
hToken:THandle;
sedebugnameValue:Int64;
tkp:TTokenPrivileges;
ReturnLength:Cardinal;
begin
//Получаем SeDebugPrivilege
// Получаем дескриптор нашего процесса
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken )
then exit;

// Получаем LUID привилегии
if not LookupPrivilegeValue( nil, "SeDebugPrivilege", sedebugnameValue )
then begin
CloseHandle(hToken);
exit;
end;

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := sedebugnameValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

// Добавляем привилегию к нашему процессу
if not AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength)
then showmessage("Ошибка при получении Debug-привилегиии");
CloseHandle( hToken );
if (GetLastError=ERROR_success) then
showmessage("Ошибка получения привелегий");
end;

Вылазит showmessage("Ошибка получения привелегий");
Работаю под админом

---

← →
Игорь Шевченко   (2004-01-11 01:43) [1]

> if (GetLastError=ERROR_success)

if (GetLastError<>ERROR_success)

---

← →
easy   (2004-01-11 02:10) [2]

на самом деле сложный вопрос..
Игорь зря прикалывается..
я вот с полпинка и не пойму ничего..=((

---

← →
SPeller   (2004-01-11 04:47) [3]

> Игорь зря прикалывается..

Он не прикалывается. Просто у автора алгоритм "Если операция прошла успешно, то вывести сообщение "Ошибка получения привелегий"".

---

← →
Piter   (2004-01-11 13:41) [4]

Во блин, тормоз я :)

Тогда вопрос перетакает в http://delphimaster.net/view/14-1073817462/

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c