06-03-2010, 12:41 PM
06-03-2010, 02:11 PM
السلام عليكم
السؤال سبق طرحه
كيف يمكن ايقاف برنامج Process ؟
إبحث في المنتدى قبل أن تسأل.
السؤال سبق طرحه
كيف يمكن ايقاف برنامج Process ؟
PHP كود :
uses Tlhelp32;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('notepad.exe');
end;
06-03-2010, 04:04 PM
:kick:
بارك الله فيك اخي
لكن بحثت في المنتدى ولم اجد
بارك الله فيك اخي
لكن بحثت في المنتدى ولم اجد