+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تشغيل/تعطيل Task Manager عن طريق Delphi (/showthread.php?tid=111)
تشغيل/تعطيل Task Manager عن طريق Delphi - delphi4ever - 26-03-2008
السلام عليكم ورحمة الله تعالى وبركاته.أظن أن الكل منا يعرف 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 الخاصة بالوحدة.
وللمزيد من التفاصيل أنظر السورس في المرفقات.
تشغيل/تعطيل Task Manager عن طريق Delphi - bilgads - 12-04-2008
جزاك الله خيرا يا Delphi4Ever وننتظر منك المزيد