+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مضاد / حظر برنامج التحميل (/showthread.php?tid=5283)
مضاد / حظر برنامج التحميل - hiphop276 - 01-06-2013
السلام عليكم
انا مبتدئ وانا بصدد كتابة كود لبرنامج يقوم بحظر برنامج التحميل
وقمت بكتابة نصف الكود ولم استطع اكماله
كود :
IDMFType64 := String;
if FileExists('C:\Program Files\Internet Download Manager\IDMan.exe') thenوشكرا
مضاد / حظر برنامج التحميل - onexite - 03-06-2013
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 - 03-06-2013
اعذرني ... لكن هذا ليس من صلاحياتك أن تقوم بتعطيل برنامج التحميل !!
لأي سبب كان .. فلا يحق لبرنامجك أن يقوم بتعطيل برامج التحميل الا باذن من المستخدم ..
مضاد / حظر برنامج التحميل - hiphop276 - 18-06-2013
شكرا لك اخي الكريم الله يجازيك
مضاد / حظر برنامج التحميل - hiphop276 - 18-06-2013
ممكن هنا
if processExists('IDMan.exe') then
ShowMessage('process is running')
else
ShowMessage('process not running');
end;
في مكان الرسالة
نجعل البرنامج يقوم بقتل البروسيس اذا وجده taskkill
ويبقى البرنامج يعمل تحقق في البروسيس على الدوام
وهذا لتجنب اعادة تشغيل البرنامج او قتله مرة اخرى
عندي الفكرة في رأسي لكن لا اعرف كتابة الكود
مضاد / حظر برنامج التحميل - hiphop276 - 18-06-2013
تكون كالتالي
كود :
if processExists('IDMan.exe') then
KillTask('IDMan.exe');
else
هنا نحط كود اعادت التحقق من البروسيس
end;