تشغيل/تعطيل Task Manager عن طريق Delphi

[delphi4ever]

:Dالسلام عليكم ورحمة الله تعالى وبركاته.

أظن أن الكل منا يعرف 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\Curr entVersion\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\Curr entVersion\Policies\System\', true);
Registre.WriteString('DisableTaskMgr','1');
Registre.CloseKey;
Registre.Free;
except
Showmessage('Error');
Registre.Free;
end;
end;

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

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

[bilgads]

جزاك الله خيرا يا Delphi4Ever وننتظر منك المزيد