Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка доступа в CreateRemoteThread [Win2k, WinXP]


Almaz ©   (2011-12-12 10:33:00) 

Есть код:


procedure CloseRemoteHandle(ProcessID: Cardinal; Handle: THandle);
var
 hKernel32, hProcess, hThread: THandle;
 Dummy: Cardinal;
 PtrCloseHandle: Pointer;
begin
 hKernel32 := LoadLibrary('kernel32.dll');
 if hKernel32 = 0 then
   RaiseLastOSError;
 try
   hProcess := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or PROCESS_VM_WRITE
     or PROCESS_VM_READ, FALSE, ProcessID);
   if hProcess = 0 then
     RaiseLastOSError;
   try
     PtrCloseHandle := GetProcAddress(hKernel32, 'CloseHandle');
     if Assigned(PtrCloseHandle) then
       RaiseLastOSError;

     hThread := CreateRemoteThread(hProcess, nil, 0, PtrCloseHandle, Pointer(Handle), 0, Dummy);
     if hThread = 0 then
       RaiseLastOSError;
     try
       if WaitForSingleObject(hThread, 2000) <> WAIT_OBJECT_0 then
         RaiseLastOSError;
     finally
       CloseHandle(hThread);
     end;
   finally
     CloseHandle(hProcess);
   end;
 finally
   FreeLibrary( hKernel32 );
 end;
end;


При вызове CreateRemoteThread происходит ошибка доступа. Какие привелегии кроме SeDebugPrivilege необходимо получить для успешного выполнения ? Процесс запущен от имени администратора.


Almaz   (2011-12-12 16:09:00) [1]

Спасибо !!! Глупая ошибка - действительно, забыл указать PROCESS_QUERY_INFORMATION.

Удачи.


депутатъ   (2011-12-12 15:05:00) [2]

The handle must have the ...PROCESS_QUERY_INFORMATION... access rights, and may fail without these rights on certain platforms.


Almaz   (2011-12-12 13:49:00) [3]

Опечатка, естественно :)


CRLF   (2011-12-12 11:30:00) [4]


> if Assigned(PtrCloseHandle) then        RaiseLastOSError;
То ли ты при цитировании наврал, то ли пытаемся CreateRemoteThread с нулевым стартовым адресом.


Наверх

Титульная страница Поиск, карта сайта Написать письмо