Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

Получение 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-2231
man
2004-01-19 19:49
2004.02.02
как получить список процессов, которые используют данный файл


6-2255
Интересующийся
2003-11-26 01:43
2004.02.02
TServerSocet и TClientSocet


6-2241
Dark Elf
2003-11-27 17:12
2004.02.02
Проблема с NMPOP3


3-2035
Pako
2004-01-06 07:23
2004.02.02
SQL


3-1964
pashtet
2004-01-09 14:43
2004.02.02
Paradox+ODBC не работает функция upper()?