مضاد / حظر برنامج التحميل

[hiphop276]

السلام عليكم
انا مبتدئ وانا بصدد كتابة كود لبرنامج يقوم بحظر برنامج التحميل
وقمت بكتابة نصف الكود ولم استطع اكماله

كود :

IDMFType64 := String; if FileExists('C:\Program Files\Internet Download Manager\IDMan.exe') then

هنا بعد الذان يقوم بقتل البرنامج من البروسيس اذا كان موجودا ولم اعرف كيفية كتابة الكود
وشكرا

[onexite]

PHP كود :

uses TlHelp32; 


function processExists(exeFileName: string): Boolean; 
var 
  ContinueLoop: BOOL; 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32; 
begin 
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
  Result := False; 
  while Integer(ContinueLoop) <> 0 do 
  begin 
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = 
      UpperCase(ExeFileName))) then 
    begin 
      Result := True; 
    end; 
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
  end; 
  CloseHandle(FSnapshotHandle); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if processExists('IDMan.exe') then 
    ShowMessage('process is running') 
  else 
    ShowMessage('process not running'); 
end; 


[SMP3]

اعذرني ... لكن هذا ليس من صلاحياتك أن تقوم بتعطيل برنامج التحميل !!
لأي سبب كان .. فلا يحق لبرنامجك أن يقوم بتعطيل برامج التحميل الا باذن من المستخدم ..

[hiphop276]

شكرا لك اخي الكريم الله يجازيك

[hiphop276]

ممكن هنا
if processExists('IDMan.exe') then
ShowMessage('process is running')
else
ShowMessage('process not running');
end;

في مكان الرسالة
نجعل البرنامج يقوم بقتل البروسيس اذا وجده taskkill
ويبقى البرنامج يعمل تحقق في البروسيس على الدوام
وهذا لتجنب اعادة تشغيل البرنامج او قتله مرة اخرى
عندي الفكرة في رأسي لكن لا اعرف كتابة الكود

[hiphop276]

تكون كالتالي

كود :

if processExists('IDMan.exe') then KillTask('IDMan.exe'); else هنا نحط كود اعادت التحقق من البروسيس end;