Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

OpenProcess и 64bit applications...   Найти похожие ветки 

 
istok20 ©   (2009-11-28 00:15) [0]

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-28 00:18) [1]

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


 
istok20 ©   (2009-11-28 01:02) [2]


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


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

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


 
Rouse_ ©   (2009-11-28 01:12) [3]

А что пишешь?


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

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


 
istok20 ©   (2009-11-28 01:52) [5]

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


 
istok20 ©   (2009-11-28 02:13) [6]

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


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


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


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



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.059 c
15-1329251402
Юрий
2012-02-15 00:30
2013.03.22
С днем рождения ! 15 февраля 2012 среда


15-1345901388
Фокс Йожин
2012-08-25 17:29
2013.03.22
Картина


15-1351157732
cobalt
2012-10-25 13:35
2013.03.22
Зеленое окошко вместо видео.


15-1334349002
Юрий
2012-04-14 00:30
2013.03.22
С днем рождения ! 14 апреля 2012 суббота


15-1331116336
Leon-Z
2012-03-07 14:32
2013.03.22
Установить прогу на сервер.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский