В Delphi 10 Seattle я использую этот код, чтобы получить дескриптор процесса:
uses
Winapi.Windows;
var
hp: THandle;
begin
hp := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID);
Это хорошо работает со всеми процессами, как 32-битными, так и 64-битными.
К сожалению, он не работает с ПОВЫШЕННЫМИ ПРОЦЕССАМИ, где он возвращает 0.
Итак, как я могу получить дескриптор процесса с повышенными правами?
If the function fails, the return value is NULL. To get extended error information, call GetLastError.
- person Tom Brunberg   schedule 29.01.2016Access denied
. - person user1580348   schedule 29.01.2016