26-03-2008, 08:09 PM
السلام عليكم ورحمة الله تعالى وبركاته.
أظن أن الكل منا يعرف Task Manager أو Gestionnaire des taches بالفرنسية ويعرف في النظام بـ TaskMgr
وهناك فيروسات كثيرة تقوم بتعطيله.
يمكننا تعطيل هذا الأخير عن طريق Registry وباستعمال Delphi عن طريق الكود التالي:
من أجل تشغــيله:
ومن أجل تعطيله:
ملاحظة هامة: لا ننسى أن نضيف Registry في قائمة Uses الخاصة بالوحدة.
وللمزيد من التفاصيل أنظر السورس في المرفقات.
أظن أن الكل منا يعرف 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 الخاصة بالوحدة.
وللمزيد من التفاصيل أنظر السورس في المرفقات.