تشغيل/تعطيل Task Manager عن طريق Delphi
#1
Big Grinالسلام عليكم ورحمة الله تعالى وبركاته.

أظن أن الكل منا يعرف Task Manager أو Gestionnaire des taches بالفرنسية ويعرف في النظام بـ TaskMgr
وهناك فيروسات كثيرة تقوم بتعطيله.

يمكننا تعطيل هذا الأخير عن طريق Registry وباستعمال Delphi عن طريق الكود التالي:

من أجل تشغــيله:
كود :
var Registre:TRegistry;
begin
  Registre:=TRegistry.Create;
  Registre.RootKey:=HKEY_CURRENT_USER;
  Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
  Registre.DeleteValue('DisableTaskMgr');
  Registre.CloseKey;
  Registre.Free;
end;

ومن أجل تعطيله:

كود :
var Registre:TRegistry;
begin
Registre:=TRegistry.Create;
  try
    Registre.RootKey:=HKEY_CURRENT_USER;
    Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\', true);
    Registre.WriteString('DisableTaskMgr','1');
    Registre.CloseKey;
    Registre.Free;
  except
    Showmessage('Error');
    Registre.Free;
  end;
end;

ملاحظة هامة: لا ننسى أن نضيف Registry في قائمة Uses الخاصة بالوحدة.

وللمزيد من التفاصيل أنظر السورس في المرفقات.Big Grin


الملفات المرفقة
.rar   TaskMgr.rar (الحجم : 4.78 KB / التحميلات : 162)
الرد
#2
جزاك الله خيرا يا Delphi4Ever وننتظر منك المزيد
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف