ÇáÓáÇã Úáíßã
* åÐÇ ÇáãæÖæÚ ááÛÑÖ ÇáÊÚáíãí áÇÛíÑ . ÈÇáäÓÈå ááãÈÑãÌíä ÇáãÍÊÑÝíä íÝÖá ÊÚÏí åÐÇ ÇáãæÖæÚ .
ÞÈá ÝÊÑå ßäÊ ÞÏ ÈÏÃÊ Ýí Úãá ÈÑäÇãÌ íÞæã ÈÇÚØÇÁ ãÚáæãÇÊ Úä ÇáÜÜ Processes ÇáÔÛÇáå ÍÇáíÇ Ýí ÇáßãÈíæÊÑ . åäÇß ÇáÚÏíÏ ãä ÇáÈÑÇãÌ ÇáÊí ÊÞæã ÈåÐÇ ÇáÔÆ ÇÍÏåÇ Task Manager ÇáÊÇÈÚ áÜ win2k/xp , Çæ ÈÑäÇãÌ pviewer ÇáÐí íÇÊí ãÚ Support Tools ÇáãæÌæÏ Öãä win2k/xp CD .
ÇÍÏ ÇáÈÑÇãÌ ÇáÌíÏå ÇíÖÇ æÇáÊí ÇÝÖáåÇ åæ PrcView
http://www.prcview.com æÛíÑåÇ ...
áÇÍÙÊ Çä ÇáÈÑÇãÌ ÇáÛíÑ ÊÇÈÚå áãÇíßÑæÓæÝÊ ÌãíÚåÇ ÊÓÊÎÏã ãáÝ DLL ÇÓãå PSAPI.DLL íÇÊí ãÚ ÇáÜ VC , íãßä ÊäÒíáå ãä ÕÝÍå MS ÇíÖÇ. åÐÇ ÇáãáÝ íÞæã ÈÇÓÊÏÚÇÁ ÚÏÏ ãä ÏæÇá ÇáÜÜ native api ÇáÊí ÊÓÇÚÏ Ýí ÊÌãíÚ ÇáãÚáæãÇÊ ÇáÎÇÕå ÈÇáÜÜ Processes æ ÇáÜÜ Threads ...
áÇÍÙÊ Çä TaskManager æ Pviewer ÊÓÊÏÚí äÝÓ ÇáÏæÇá ÈÕæÑå ãÈÇÔÑå Ïæä ÇÚÊãÇÏ Úáì ÇáÜ DLL ÇáãÐßæÑ ..
åäÇ ÓÃÖÚ ßæÏ íÚØí ÈÚÖ ÇáãÚáæãÇÊ Úä ÇáÜ Process ÇáÍÇáíå.
ÈÇáäÓÈå ááÈÑäÇãÌ ÇáÐí ÇÞæã ÈÈÑãÌÊå - Çä ÔÇÁ Çááå - ÇÖÚ ßæÏå Ýí ÇáÚØáå ÈÚÏ ÔåÑ ÊÞÑíÈÇ , ÇáÈÑäÇãÌ íÚÊãÏ ÊãÇãÇ Úáì ÏæÇá native api ( Çí Çäå áÇ íÚÊãÏ Úáì PSAPI.DLL ) .
Add a button and Memo to a form

 
// Add this after the declaration of form calss  
  TPDword=^DWORD; 
  PProcess_Basic_Information =^TProcess_Basic_Information; 
  TProcess_Basic_Information = record 
        ExitStatus : DWORD; 
        PebBaseAddress : DWORD; 
        AffinityMask : DWORD; 
        BasePriority : DWORD; 
        UniqueProcessId : ULONG; 
        InheritedFormUniqueProcessId : ULONG; 
  end; 
  PProcess_Quata_Limits=^TProcess_Quata_Limits; 
  TProcess_Quata_Limits=record 
        PagedPoolLimit : ULONG; 
        NonPagedPoolLimit : ULONG; 
        MinimumWorkingSetSize : ULONG; 
        MaximumWorkingSetSize : ULONG; 
        PagefileLimit : ULONG; 
        TimeLimit : LARGE_INTEGER; 
  end; 
  PProcess_IO_Counters=^TProcess_IO_Counters; 
  TProcess_IO_Counters=record 
        ReadOperationCount : LARGE_INTEGER; 
        WriteOperationCount : LARGE_INTEGER; 
        OtherOperatoinCount : LARGE_INTEGER; 
        ReadTransferCount : LARGE_INTEGER; 
        WriteTransferCount : LARGE_INTEGER; 
        OtherTransferCount : LARGE_INTEGER; 
  end; 
function NtQueryInformationProcess 
              ( 
                ProcessHandle : Thandle; 
                PrcInfoClass : DWORD ; 
                PrcInfo : Pointer ; 
                PrcInfoLength : ULONG; 
                returnlength : TPDword 
              ): 
                DWORD; stdcall ;external 'ntdll.dll' name 'NtQueryInformationProcess'; 
... 
// Button Click event 
procedure TForm1.Button1Click(Sender: TObject); 
var 
status : DWORD; 
retlen : DWORD; 
Prc_Basic_Info : TProcess_Basic_Information; 
Prc_Quta_Limits : TProcess_Quata_Limits; 
Prc_IO_Counter : TProcess_IO_Counters ; 
hProcess : THandle; 
begin 
hProcess := GetCurrentProcess();  
status:=NtQueryInformationProcess 
        ( 
          hProcess, 
          0,//ProcessBasicInformatio 
          @Prc_Basic_Info, 
          sizeof(TProcess_Basic_Information), 
          @retlen 
        ); 
if(status<>0) then 
   exit; 
status:=NtQueryInformationProcess 
        ( 
          hProcess, 
          1,//ProcessQuataLimits 
          @Prc_Quta_Limits, 
          sizeof(TProcess_Quata_Limits), 
          @retlen 
        ); 
if(status<>0) then 
   exit; 
status:=NtQueryInformationProcess 
        ( 
          hProcess, 
          2,//ProcessIOCounters 
          @Prc_IO_Counter, 
          sizeof(TProcess_IO_Counters), 
          @retlen 
        ); 
if(status<>0) then 
   exit; 
 
Memo1.Clear; 
Memo1.Lines.Add('ExitStatus       : '+IntToStr(Prc_Basic_Info.ExitStatus)); 
Memo1.Lines.Add('PebBaseAddress   : '+IntToStr(Prc_Basic_Info.PebBaseAddress)); 
Memo1.Lines.Add('AffinityMask     : '+IntToStr(Prc_Basic_Info.AffinityMask)); 
Memo1.Lines.Add('BasePriority     : '+IntToStr(Prc_Basic_Info.BasePriority)); 
Memo1.Lines.Add('UniqueProcessId  : '+IntToStr(Prc_Basic_Info.UniqueProcessId)); 
Memo1.Lines.Add('Parent ProcessId : '+IntToStr(Prc_Basic_Info.InheritedFormUniqueProcessId)); 
 
Memo1.Lines.Add('PagedPool        : '+IntToStr(Prc_Quta_Limits.PagedPoolLimit)); 
Memo1.Lines.Add('NonPagedPool     : '+IntToStr(Prc_Quta_Limits.NonPagedPoolLimit)); 
Memo1.Lines.Add('MinWorkingSet    : '+IntToStr(Prc_Quta_Limits.MinimumWorkingSetSize)); 
Memo1.Lines.Add('MaxWorkingSet    : '+IntToStr(Prc_Quta_Limits.MaximumWorkingSetSize)); 
Memo1.Lines.Add('Pagefile         : '+IntToStr(Prc_Quta_Limits.PagefileLimit)); 
Memo1.Lines.Add('TimeLimit        : '+IntToStr(Prc_Quta_Limits.TimeLimit.QuadPart)); 
 
Memo1.Lines.Add('I/O Read         : '+IntToStr(Prc_IO_Counter.ReadOperationCount.QuadPart)); 
Memo1.Lines.Add('I/O Write        : '+IntToStr(Prc_IO_Counter.WriteOperationCount.QuadPart)); 
Memo1.Lines.Add('I/O Other        : '+IntToStr(Prc_IO_Counter.OtherOperatoinCount.QuadPart)); 
Memo1.Lines.Add('I/O Read Byte    : '+IntToStr(Prc_IO_Counter.ReadTransferCount.QuadPart)); 
Memo1.Lines.Add('I/O Write Byte   : '+IntToStr(Prc_IO_Counter.WriteTransferCount.QuadPart)); 
Memo1.Lines.Add('I/O Other  Byte  : '+IntToStr(Prc_IO_Counter.OtherTransferCount.QuadPart)); 
end;