Получение адресса по имени процесса (Delphi)

[dyonysos]

Для получения списка процессов использую:

function GetProcess:TStringList;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;

Как теперь по имени процесса получить адресс или еще лучше коммандную строку при помощи которой процесс был запущен.
Или может быть есть другой способ получить список процессов вместе с дополнительной инфой?

[Stilet]

Когда-то достал такое:

 function ProcessFileName(PID: DWORD): string;
   var
     Handle: THandle;
   begin
     Result := '';
     Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
     if Handle <> 0 then
       try
         SetLength(Result, MAX_PATH);
         if FullPath then
         begin
           if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
             SetLength(Result, StrLen(PChar(Result)))
           else
             Result := '';
         end
         else
         begin
           if GetModuleBaseNameA(Handle, 0, PChar(Result), MAX_PATH) > 0 then
             SetLength(Result, StrLen(PChar(Result)))
           else
             Result := '';
         end;
       finally
         CloseHandle(Handle);
       end;
   end;

Нужен модуль PsAPI

[dyonysos]

if FullPath then

где это должно быть задекларированно?

[Stilet]

Да убери эту строку вообще, пусть без условия путь получает.
Просто эта функа у меня вложена в еще одну функу.

[dyonysos]

if GetModuleBaseNameA(Handle, 0, PChar(result), MAX_PATH) > 0 then

здесь выдает ошибку: [DCC Error] Unit1.pas(51): E2010 Incompatible types: 'Char' and 'AnsiChar'.Как это исправить ( у меня дэлфи 2009 )?

[Stilet]

PAnsiChar(result)