17-09-2010, 09:48 AM
السلام عليكم ورحمة الله وبركاته
لاحظ إجرائية قتل Process هاته :
استعملتها لقتل Process : explorer.exe
هكدا :
ولكن الامور التي وقعة هي :
1- ثم قتل explorer.exe
2 - بعد 1 ثانية اعيد خلقه اوتوماتكيا لا اعرف كيف ؟
انا اود ان يتم قتله فقط
كيف يتم هدا بارك الله فيكم ؟
بالتوفيق
لاحظ إجرائية قتل Process هاته :
PHP كود :
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),FProcessEntry32.th32ProcessID),0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
استعملتها لقتل Process : explorer.exe
هكدا :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('explorer.exe');
end;
ولكن الامور التي وقعة هي :
1- ثم قتل explorer.exe
2 - بعد 1 ثانية اعيد خلقه اوتوماتكيا لا اعرف كيف ؟
انا اود ان يتم قتله فقط
كيف يتم هدا بارك الله فيكم ؟
بالتوفيق
كن متواضعا ولا تكن متكبرا // الصبر + المثابرة = النجاح


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)