[AirTex]

Добрый день знатоки, волнует вопрос меня- как найти процесс и определить путь файла ехе (к примеру notpad++.exe) и что бы путь к файлу заносился в переменную. Буду благодарен !

[Admin]

Сообщение от AirTex

Добрый день знатоки, волнует вопрос меня- как найти процесс и определить путь файла ехе (к примеру notpad++.exe) и что бы путь к файлу заносился в переменную. Буду благодарен !

http://www.delphisources.ru/pages/so...s-monitor.html

Также в разделе Система имеется как минимум 4 подобных примера

[AirTex]

Сообщение от Admin

http://www.delphisources.ru/pages/so...s-monitor.html

Также в разделе Система имеется как минимум 4 подобных примера

Беда в том, что я запустил этот проект, он запускается все ок, но поле где должны быть процессы пустое

[AirTex]

Попробовал эту тему (прошу прощение если это считается рекламой): http://enter1.ru/%D0%BE%D0%BF%D1%80%...1%D1%81%D0%B0/ вроде то что надо. Но почему то у меня не работает (x64 у меня ось)
=====================================
Очень странно работает, некоторые процессы определяет путь, некоторые нет
=====================================

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, AppEvnts,IdHttp, StdCtrls, tlhelp32, Grids;   type    TModuleArray = array of TModuleEntry32;    TForm1 = class(TForm)    Button2: TButton;     Edit1: TEdit;     Edit2: TEdit;    procedure Button2Click(Sender: TObject);   private   public   end;   var   Form1: TForm1;   function GetModulesListByProcessId(ProcessId : Cardinal) : TModuleArray;   implementation   {$R *.dfm}   function GetModulesListByProcessId(ProcessId:Cardinal): TModuleArray; var hSnapshot: THandle;     lpme: TModuleEntry32;  procedure AddToList;  begin   SetLength(Result,High(Result)+2);   Result[high(Result)]:=lpme;  end; begin  SetLength(Result,0);  hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcessId);  lpme.dwSize:=SizeOf(lpme);  if Module32First(hSnapshot,lpme) then   begin    AddToList;    while Module32Next(hSnapshot,lpme) do    AddToList;   end; end;   function get_path(pid: cardinal):string; var i:integer;     marr: TModuleArray; begin  marr:= GetModulesListByProcessId(Pid);  result:='Null';  for i:=0 to High(marr) do   begin    if Integer(marr[i].modBaseAddr)=$400000 then begin     result:= marr[i].szExePath;     break;    end;   end end;   function GetProcessId(pName: PChar): dword; var  Snap: dword;  Process: TPROCESSENTRY32; begin   Result := 0;   Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);   if Snap <> INVALID_HANDLE_VALUE then      begin       Process.dwSize := SizeOf(TPROCESSENTRY32);       if Process32First(Snap, Process) then          repeat           if lstrcmpi(Process.szExeFile, pName) = 0 then              begin               Result := Process.th32ProcessID;               CloseHandle(Snap);               Exit;              end;          until not Process32Next(Snap, Process);       Result := 0;       CloseHandle(Snap);      end; end;           procedure TForm1.Button2Click(Sender: TObject); begin    showmessage(get_path(GetProcessId(PCHAR('filezilla.exe')))); end;   end.

вот так код работает...а если к примеру я поменяю filezilla.exe на любой другой 32 битный процесс...не работает, пишет Null

[Freeman]

И правильно, ибо нефиг. В MSDN ведь ясно пишут:

Сообщение от MSDN

TH32CS_SNAPMODULE

64-bit Windows: Using this flag in a 32-bit process includes the 32-bit modules of the process specified in th32ProcessID, while using it in a 64-bit process includes the 64-bit modules. To include the 32-bit modules of the process specified in th32ProcessID from a 64-bit process, use the TH32CS_SNAPMODULE32 flag.

[AirTex]

Сообщение от Freeman

И правильно, ибо нефиг. В MSDN ведь ясно пишут:

вон я кинул скрипт (выше на пост от твоего), он отлично работает с 32 битными приложениями, но не со всеми. К примеру я пробовал файл зило определить путь, он показывает. Пробовал с скайпом - уже не работает
============================================
Решил проблему, убрав условие
if Integer(marr[i].modBaseAddr)=$400000 then begin

[Freeman]

Сообщение от AirTex

Решил проблему, убрав условие
if Integer(marr[i].modBaseAddr)=$400000 then begin

Это вообще глупое условие. В системах до Windows 7 ядро не умело грузить exe-шники не по фиксированному адресу, даже если перемещаемые символы в самом файле были. А потом появилась технология EMET, в которой ради защиты от вирусов адресное пространство процесса может перемешиваться, включая перемещение самого exe-шника.

Помимо этого даже Windows XP умеет грузить exe-шники по нестандартному, пусть и фиксированному адресу. Возможно, проверка в коде осталась со времен NT 4 или Windows 9x. Как в них на самом деле, не проверял.