delphi4arab منتديات دلفي للعرب

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

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

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

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; 

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

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

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

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

تكون كالتالي

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

hiphop276

onexite

SMP3

hiphop276

hiphop276

hiphop276