[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 у меня ось)
=====================================
Очень странно работает, некоторые процессы определяет путь, некоторые нет
=====================================

Код:

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. Как в них на самом деле, не проверял.