tmaaa

الحصول على معلومات البرامج العامله داخل الويندوز

2 ردود في هذا الموضوع

السلام عليكم

* هذا الموضوع للغرض التعليمي لاغير . بالنسبه للمبرمجين المحترفين يفضل تعدي هذا الموضوع :) .

قبل فتره كنت قد بدأت في عمل برنامج يقوم باعطاء معلومات عن الــ 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;

بالنسبه للدوال والانواع المعرفه في الكود يمكن مراجعه كتاب Window NT/2000 Native API , رابط تنزيل الكتاب موجود في موضوع Delphi&Native API و في موضوع لي في قسم الفيجوال سي .

يمكن مقارنه النتائج مع القيم في TaskManager . طبعا هناك العديد من المعلومات التي يمكن الحصول عليها .

----------

By kcahcn , Computer Idiot Organization

(f)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .