через API получаю полный путь и название процесса, а получаю только название процесса

[Den7656]

пытаюсь получить полный путь вместе с именем файла, а в ответ получаю только название файла

PHP код:

procedure TMonitorForm.Timer1Timer(Sender: TObject);
var
 today : TDateTime;
  ProcessCount, i: DWORD;
  pe32: TlHelp32.TProcessEntry32;
  hSnapShot: THandle;
    ProcInfo: TProcessEntry32;
begin
today := Time;
  NewPIDList.Clear;
  NewProcessList.Clear;
  path.Clear;
  hSnapShot := TlHelp32.CreateToolHelp32SnapShot(TlHelp32.TH32CS_SNAPPROCESS, 4);
  if hSnapShot <> INVALID_HANDLE_VALUE then
  begin
      ProcInfo.dwSize := SizeOf(ProcInfo);
    pe32.dwSize := SizeOf(TlHelp32.ProcessEntry32);
    while TlHelp32.Process32Next(hSnapShot, pe32) = True do
    begin
      NewPIDList.Add(IntToStr(pe32.th32ProcessID));
      NewProcessList.Add(pe32.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;

  if (NewPIDList.Text <> PIDList.Text) then
  begin

    if NewPIDList.Count > 0 then
    begin
      for i := 0 to NewPIDList.Count - 1 do
      begin
        if PIDList.IndexOf(NewPIDList.Strings[i]) = -1 then
        begin
          if not RefreshFirstTime then
          begin
ADD('1',            // номер
TimeToStr(today),  // время
'RUN', // action
NewProcessList.Strings[i], //process
inttostr(gethandle(NewProcessList.Strings[i])),  //handle
NewPIDList.Strings[i],  //PID MD5
NewProcessList.Strings[i], ///
'hjkh',//GetPathFromPID(strtoint(NewPIDList.Strings[i])),    //PATH
'86776', // размер
'g'); // цвет

          end;
        end;
      end;
    end;

    if PIDList.Count > 0 then
    begin
      for i := 0 to PIDList.Count - 1 do
      begin
        if NewPIDList.IndexOf(PIDList.Strings[i]) = -1 then
        begin
          with ListView1.Items.Add do
          begin
            Caption := '1';
              SubItems.Add(TimeToStr(today));
              SubItems.Add('Destroy');
              SubItems.Add(ProcessList.Strings[i]);
              SubItems.Add(inttostr(gethandle(extractFilename(ProcessList.Strings[i]))));
              SubItems.Add(PIDList.Strings[i]);
              Data := Pointer(clRed);

          end;
        end;
      end;
    end;

  end;

  PIDList.Assign(NewPIDList);
  ProcessList.Assign(NewProcessList);

  RefreshFirstTime := False;
end; 


[Den7656]

В чем трабла ? Никак не догоню ((

[Пепел Феникса]

The name of the executable file for the process. To retrieve the full path to the executable file, call the Module32First function and check the szExePath member of the MODULEENTRY32 structure that is returned.

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

[Den7656]

а как это можно сделать ?

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Den7656]

Спасибо большое, разобрался.
Тему можно закрывать.