Текущий архив: 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.021 c
