Procedure GetProcessInformation (hProcessID:cardinal; L:TStrings);

var hProcess: cardinal; 
       MaxWorkSet,MinWorkSet:cardinal;
       ALib,Kernel:THandle;
       GPIF:TGetProcessImageFile;
       GPMI:TGetProcessMemoryInfo;
       IsWow64Process:TIsWow64Process;
       ImageName:array[0..4096] of char;
       PMInfo:TProcessMemoryCounters;
       SBuf:string;
 
begin       

  hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,hProcessID);

  if (hProcess>0) then
     begin

      GetProcessWorkingSetSize(hProcess,MaxWorkSet,MinWorkSet);
      // занятые ресурсы 
      L.Add(Format('Process: %s',[SBuf]));
      L.Add(Format('Process ID: %d',[hProcessID]));
      L.Add(Format('Working set size: Max=%d Min=%d',[MaxWorkSet,MinWorkSet]));
      L.Add(Format('GUI resources: GDI=%d User=%d',[GetGuiResources(hProcess,0),GetGuiResources(hProcess,1)]));

      // приоритет

      SBuf:='Priority=%s';

      MinWorkSet:=GetPriorityClass(hProcess);
      if (MinWorkSet and $00008000)>0 then //  ABOVE_NORMAL_PRIORITY_CLASS
         SBuf:=Format(SBuf,['ABOVE NORMAL']);
      if (MinWorkSet and $00004000)>0 then // BELOW_NORMAL_PRIORITY_CLASS
         SBuf:=Format(SBuf,['BELOW NORMAL']);
      if (MinWorkSet and HIGH_PRIORITY_CLASS)>0 then  // 0x00000080
         SBuf:=Format(SBuf,['HIGH']);
      if (MinWorkSet and IDLE_PRIORITY_CLASS)>0 then  // 0x00000040
         SBuf:=Format(SBuf,['IDLE']);
      if (MinWorkSet and NORMAL_PRIORITY_CLASS)>0 then  // 0x00000020
         SBuf:=Format(SBuf,['NORMAL']);
      if (MinWorkSet and REALTIME_PRIORITY_CLASS)>0 then  // 0x00000100
         SBuf:=Format(SBuf,['REALTIME']);
      L.Add(SBuf);

      // process memory info

      if SysUtils.Win32MajorVersion>=5 then // XP or higher
         begin
           ALib:=LoadLibrary('psapi.dll');
           if (ALib>0) then
              begin
                 @GPMI:=GetProcAddress(ALib,'GetProcessMemoryInfo');
                 if @GPMI<>nil then
                    begin
                      if GPMI(hProcess,PMInfo,SizeOf(PMInfo)) then
                         begin
                           L.Add('Memory info:');
                           L.Add('Pages fault      ='+FormatInteger(PMInfo.PageFaultCount)+' '+
                                    'Working set size ='+FormatInteger(PMInfo.WorkingSetSize)+' '+
                                    'Page file usage  ='+FormatInteger(PMInfo.PagefileUsage));
                         end;
                    end;
                 FreeLibrary(ALib);
              end;
         end;

        CloseHandle(hProcess);

       end;
  end;