function GetProcessModules(hWind:thandle;ProcName : String;
FullPath : Boolean;
IncludeData : Boolean) : TStringList;
var
s : String;
Found : Boolean;
Done : Boolean;
AList : TStringList;
ProcHandle : THandle;
ModHandle : THandle;
AProcEntry : TProcessEntry32;
AModEntry : TModuleEntry32;

begin
AList := TStringList.Create;
Result := AList;
AList.Sorted := True;

ProcHandle := CreateToolHelp32Snapshot
(TH32CS_SNAPALL, 0);
if ProcHandle = -1 then Exit;

AProcEntry.dwSize := sizeof(TProcessEntry32);
AModEntry.dwSize := sizeof(TModuleEntry32);

if Process32First(ProcHandle, AProcEntry)
 then begin
       { Просматриваем процессы, пока не будет
       найдено совпадение http://www.chipdisk.ru }
       Found :=
UpperCase(AProcEntry.szExeFile) =
UpperCase(ProcName);
       if not Found
        then repeat
Done := not Process32Next(ProcHandle, AProcEntry);
if not Done
then Found := UpperCase(AProcEntry.szExeFile) =
                             UpperCase(ProcName);
             until Done or Found;

       if Found
        then begin
ModHandle :=
 CreateToolHelp32Snapshot(TH32CS_SNAPMODULE,
AProcEntry.th32ProcessID);
if Module32First(ModHandle, AModEntry)
then begin
{ Обработка первого модуля первого http://byteme.ru процесса }
      if IncludeData
       then s := '' +
IntToStr(AModEntry.GlblcntUsage)
       else s := '';

      if FullPath
       then s := AModEntry.szExePath + s
       else s := AModEntry.szModule + s;
     AList.Add(s);
      { Обработка остальных модулей
        первого процесса }
while Module32Next(ModHandle, AModEntry) do
       begin
        if IncludeData
         then s := '' +
IntToStr(AModEntry.GlblcntUsage)
                        else s := '';

if FullPath
then s := AModEntry.szExePath + s
else s := AModEntry.szModule + s;
AList.Add(s);
writeln(s);
  end;
end;
              CloseHandle(ModHandle);

             end;
      end;
CloseHandle(ProcHandle);
end;