l_module_handle: HMODULE;
      l_module_count_x_4: DWORD;
      l_module_name: array[0..MAX_PATH- 1] of char;

      l_c_process: c_process;
      l_priority: String;

  begin // build_process_list
    if not EnumProcesses(@l_process_id_array,
          k_process_id_array_max* 4, l_process_id_array_size)
      then raise Exception.Create('PSAPI.DLL_not_found');

    display('process_count_x_4 '+ f_integer_to_hex(l_process_id_array_size));

    for l_process_index:= 0 to (l_process_id_array_size div SizeOf(Integer)- 1) do
    begin
      l_process_handle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
          FALSE, l_process_id_array[l_process_index]);

      if l_process_handle<> 0
        then begin
            if GetModuleFileNameExA(l_process_handle, 0, l_process_name,
                SizeOf(l_process_name))> 0
              then begin
                  l_c_process:= f_c_add_process(ExtractFileName(l_process_name));

                  // -- get the first module, (2nd parameter: only 1 handle),
                  //  --  which is the process itself
                  // --   as well as the module count
                  if EnumProcessModules(l_process_handle, @l_module_handle,
                      SizeOf(l_module_handle), l_module_count_x_4)
                    then begin
                        with l_c_process do
                        begin
                          GetModuleFileNameExA(l_process_handle, l_module_handle,
                              l_module_name, SizeOf(l_module_name));

                          m_main_module_name:= ExtractFileName(l_process_name);
                          m_process_id:= l_process_id_array[l_process_index];

                          fill_process_times(l_process_handle, l_c_process);

                          case GetPriorityClass(l_process_handle) of
                            HIGH_PRIORITY_CLASS: l_priority:= 'High';
                            IDLE_PRIORITY_CLASS: l_priority:= 'Idle';
                            NORMAL_PRIORITY_CLASS: l_priority:= 'Normal';
                            REALTIME_PRIORITY_CLASS: l_priority:= 'RealTime';
                          end;

                          m_process_priority:= l_priority;
                          m_process_path:= ExtractFilePath(l_process_name);

                          m_module_count:= l_module_count_x_4 div 4;

                          if m_module_count> 0
                            then build_module_list(l_process_handle, l_c_process);

                          if p_do_build_memory_mapped_file_list
                            then build_memory_mapped_file_list(l_process_handle,
                                l_c_process);
                        end; // with l_c_process
                      end; // could enumerate the first module
                end; // has found the process

            CloseHandle(l_process_handle);
          end; // process_handle> 0
    end; // for l_process_index
  end; // build_process_list

      l_module_index: Integer;
      l_c_module: c_module;
      l_module_info: TModuleInfo;
  begin
    with p_c_process do
    begin
      SetLength(m_module_handle_array, m_module_count);
      EnumProcessModules(p_process_handle, @m_module_handle_array[0],
          4* m_module_count, l_module_count_x_4);

      for l_module_index:= 0 to m_module_count- 1 do
      begin
        GetModuleFileNameExA(p_process_handle,
            m_module_handle_array[l_module_index],
            l_module_name, SizeOf(l_module_name));

        l_c_module:= f_c_add_module(ExtractFileName(l_module_name));

        with l_c_module do
        begin
          m_module_name:= m_name;
          m_module_path:= ExtractFilePath(l_module_name);

          if GetModuleInformation(p_process_handle,
              m_module_handle_array[l_module_index],
              @l_module_info, SizeOf(l_module_info))
            then
              with l_module_info do
              begin
                m_pt_base_address:= lpBaseOfDll;
                m_image_size:= SizeOfImage;
                m_pt_entry_point:= EntryPoint;
              end; // with l_module_info
        end; // with l_c_module
      end; // for l_module_index
    end; //  with p_c_process
  end; // build_module_list

  function f_memory_type(p_memory_type: DWORD): string;
    const k_memory_type_mask = DWORD($0000000F);
    begin
      Result := '';
      case p_memory_type and k_memory_type_mask of
        1: Result := 'Read-only';
        2: Result := 'Executable';
        4: Result := 'Read/write';
        5: Result := 'Copy on write';
        else
          Result := 'Unknown';
      end; // case

      if p_memory_type and $100 <> 0
        then Result := Result + ', Shareable';
    end; // f_memory_type

  const k_mapped_file_addresss_mask = DWORD($FFFFF000);
  var l_working_set_array: array[0..$3FFF - 1] of DWORD;
      l_mapped_file_index: Integer;
      l_mapped_file_name: array[0..MAX_PATH] of char;
      l_pt_working_set: Pointer;

      l_c_memory_mapped_file: c_memory_mapped_file;
      l_file_name: String;

  begin // build_memory_mapped_file_list
    with p_c_process do
      if QueryWorkingSet(p_process_handle,
          @l_working_set_array, SizeOf(l_working_set_array))
        then
          for l_mapped_file_index := 1 to l_working_set_array[0] do
          begin
            l_pt_working_set := Pointer(l_working_set_array[l_mapped_file_index]
                and k_mapped_file_addresss_mask);

            GetMappedFileName(p_process_handle, l_pt_working_set,
                l_mapped_file_name, SizeOf(l_mapped_file_name));
            l_file_name:= f_get_file_name(l_mapped_file_name);

            l_c_memory_mapped_file:= f_c_add_memory_mapped_file(l_file_name);
            with l_c_memory_mapped_file do
            begin
              m_pt_working_set:= l_pt_working_set;
              m_memory_type:= f_memory_type(l_working_set_array[l_mapped_file_index]);
            end; // with l_c_memory_mapped_file
          end; // with p_c_process, QueryWorkinSeg, for l_mapped_file_index
  end; // build_memory_mapped_file_list

procedure TForm1.create_Click(Sender: TObject);
  var l_process_index: Integer;
  begin
    g_c_process_list:= c_process_list.create_process_list('process_list');

    with g_c_process_list do
    begin
      get_nt_process_list(build_mmf_.Checked);

      process_listbox_.Items.Clear;
      for l_process_index:= 0 to f_process_count- 1 do
        with f_c_process(l_process_index) do
          process_listbox_.Items.AddObject(m_name, f_c_self);
    end; // with g_c_process_list
  end; // create_Click

            module_count_label_.Caption:= IntToStr(m_module_count);

            module_listbox_.Items.Clear;
            module_listbox_.Sorted:= sort_dll_.Checked;

            for l_module_index:= 0 to f_module_count- 1 do
              with f_c_module(l_module_index) do
                module_listbox_.Items.AddObject(m_name, f_c_self);

            memory_mapped_file_listbox_.Items.Clear;
            for l_memory_mapped_file_index:= 0 to f_memory_mapped_file_count- 1 do
              with f_c_memory_mapped_file(l_memory_mapped_file_index) do
                memory_mapped_file_listbox_.Items.AddObject(m_name, f_c_self);
          end;
  end; // process_listbox_Click