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

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

OpenProcess и 64bit applications... [D7]

istok20 ©   (2009-11-28 00:15:00) 

OpenProcess в 64битной ОС срабатывает только для 32битных приложений (getlasterror говорит "отказано в доступе")

каким-то образом можно заставить его работать с 64битными процессами? какие есть варианты кроме freepascal и ожидания следующей версии delphi?

код:


procedure TForm1.Button1Click(Sender: TObject);
var
 pe: TProcessEntry32;
 ph, snap:THandle;//дескрипторы процесса и снимка
 mh: hmodule;//дескриптор модуля
 procs: array[0..$fff] of DWORD;//массив для хранения дескрипторов процессов
 count, cm: Cardinal;//количество процессов
 i: Integer;
 ModName: array[0..max_path] of char;//имя модуля
 LastIndex: Integer; // индекс последнего добавленного Proc
begin
 ListView1.Clear;

 if not EnumProcesses(@procs, sizeof(procs), count) then
 begin
   exit;
 end;
 for i := 0 to count div 4 - 1 do
 begin
 //  Application.ProcessMessages;
   ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
     false, procs[i]);
   if ph > 0 then
   begin
     EnumProcessModules(ph, @mh, 4, cm);
     GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));

     with ListView1.Items.Add do
     begin
       Caption := (string(ModName));
       SubItems.Add(IntToStr(procs[i]));
     end;
     CloseHandle(ph);
   end
   else
     with ListView1.Items.Add do
     begin
       Caption := 'failed: ' + (string(ModName));
       SubItems.Add(IntToStr(procs[i]));
       SubItems.Add(IntToStr(GetLastError) + ':' + GetSystemErrorMessage(GetLastError));
     end;
 end;
end;


спасибо

---

Игорь Шевченко   (2009-11-29 01:14:00) [1]

> учёт использования программ, для которого нужно получать
> полный путь к файлам запущенных процессов...


Стандартный аудит не ?

---

istok20   (2009-11-28 02:13:00) [2]

да, сработало, вопрос закрыт:)

---

istok20   (2009-11-28 01:52:00) [3]

кажется отрыл точно такую же проблему на немецком форуме, надеюсь, это закроет тему...   http://www.delphipraxis.net/post976584.html

---

istok20   (2009-11-28 01:16:00) [4]

учёт использования программ, для которого нужно получать полный путь к файлам запущенных процессов...

---

Rouse_   (2009-11-28 01:12:00) [5]

А что пишешь?

---

istok20   (2009-11-28 01:02:00) [6]

> Игорь Шевченко ©   (28.11.09 00:18) [1]
> debug-привилегию включить ?


о, помогло, спасибо)

теперь борюсь с получением имени файла процесса, попробовал GetModuleFileNameExW вместо GetModuleFileNameEx - все равно не помогло - для многих x64 процессов не возвращает путь к файлу, сама ф-ция возвращает 0, вот что говорит расшифровка getlasterror: "запрос readprocessmemory или writeprocessmemory был выполнен только частично"

---

Игорь Шевченко   (2009-11-28 00:18:00) [7]

debug-привилегию включить ?

---

Наверх