[تمرين] الكل يسأل و الكل يجيب

[STRELiTZIA]

السلام عليكم

الشرح عام ومبسط

دور الدالة هو الحصول على قائمة البرامج النشطة في الذاكرة.

بالنسبة البراماتر الاول يحدد ما المراد ارجاعه

th32ProcessID البرامترالثاني ياخذ رقم التعريف الخاص ب ال Process

PHP كود :

Var
   Handle: THandle;
   Struc: TProcessEntry32;
begin
   AdjustProcessPrivilege(GetCurrentProcess,'SeDebugPrivilege');
 begin
   Handle:=CreateToolHelp32SnapShot($00000002, 0);
   Struc.dwSize:=Sizeof(TProcessEntry32);
   if Process32First(Handle, Struc) then
   ProcList.Items.Add(Struc.szExeFile);
   while Process32Next(Handle, Struc) do
   ProcList.Items.Add(Struc.szExeFile);
 end;
end; 


بالنسبة لدالة AdjustProcessPrivilege فهي تعطينا صلاحيات في النظام لاضهار processes
المثال التوضيحي مرفق

السلام عليكم و رحمة الله
كل من حمل و جرب المرفق الخاص بالمشاركة :
http://www.delphi4arab.net/forum/showpos...stcount=20

يقوم بفحص جهازه... المرفق ملوث بفيروس : W32/Induc-A
http://www.delphi4arab.net/forum/showthr...5#post9745

بالتوفيق ان شاء الله