Расширенная программа "Диспетчер задач"

[newerow1989]

Здравствуйте!
Мне хотелось бы вывести список запущенных процесов (как в диспетчере задач Windows), но мне нужны не сами имена файлов, а полный путь к файлам. Например, вместо "svchost.exe" надо вывести "C:\Windows\System32\svchost.ex e".
Дан код, позволяющий выводить список:

uses TLHelp32;

procedure TForm1.Button1Click(Sender: TObject);
var PE32:tProcessEntry32;
    ME32:tModuleEntry32;
    H,H1:tHandle;
    b,b1:LongBool;
begin
   Memo1.Clear;
   H:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
   try
   PE32.dwSize:=SizeOf(PE32);
   b:=Process32First(H,PE32);
   While Integer(b)<>0 do
   begin
      H1:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,PE32.th32ProcessID);
      try
      ME32.dwSize:=SizeOf(ME32);
      b1:=Module32First(H1,ME32);
      If (Integer(b1)=0) or (PE32.th32ProcessID=0) then
         Memo1.Lines.Add(PE32.szExeFile) else
         Memo1.Lines.Add(ME32.szExePath);
      finally
      CloseHandle(H1);
      end;
      b:=Process32Next(H,PE32);
   end;
   finally
   CloseHandle(H);
   end;
end;

Однако, этот фрагмент программы работает на все 50%. Программа выводит часть процессов с полными путями, а часть - только имена файлов. Если посмотреть в диспетчере задач Windows (см. рисунок), то там в колонке "Путь к образу" выводит все-все процессы с полными путями к файлам. Мне хотелось разработать программу, позволяющую выводить запущенные файлы с полными путями. Не подскажите ли, что можно изменить в программном коде, чтобы полностью заработало (на все 100%)?

[Stilet]

http://www.programmersforum.ru/showthread.php?t=203162
http://www.programmersforum.ru/showthread.php?t=31554

[min@y™]

Попробуй закомментарить вот эти 2 строки:

      If (Integer(b1)=0) or (PE32.th32ProcessID=0) then
         Memo1.Lines.Add(PE32.szExeFile) else

[Человек_Борща]

С пом. функции GetProcessImageFileName

[newerow1989]

Спасибо! Постараюсь разобраться!

[newerow1989]

К сожалению, ничего не мог добиться! Испробовал все! Не выводят полные пути smss.exe, winlogon.exe, svchost.exe и другие файлы. Может для ОС Windows 7 есть что-нибудь подходящее?

[min@y™]

К сожалению, ничего не мог добиться! Испробовал все! Не выводят полные пути smss.exe, winlogon.exe, svchost.exe и другие файлы.

покажи функцию, которой пользуешься.

[newerow1989]

Основная функция в вопросе, который задал 27.09.2014 (см. выше). Пробовал через GetProcessImageFileName. Использовал следующие источники:
http://www.programmersforum.ru/showthread.php?t=203162
http://delphiworld.narod.ru/base/get...processes.html
http://www.delphimaster.net/view/4-1137667012
http://www.delphikingdom.com/asp/ans...IDAnswer=80633
http://www.programmersforum.ru/showthread.php?t=31554
http://www.delphikingdom.com/asp/ans...IDAnswer=34800
http://forum.sources.ru/index.php?showtopic=95006

[min@y™]

тык раз -----> тык два.