Delphi searches for and ends Processes

Function tfrmimportexcel. findprocess (afilename: string): Boolean;
VaR
Hsnapshot: thandle; // used to obtain the Process List
Lppe: tprocessentry32; // used to find a process
Found: Boolean; // used to determine whether process traversal is complete
Killhandle: thandle; // used to kill a process
Begin
Result: = false;
Hsnapshot: = createconlhelp32snapshot (th32cs_snapprocess, 0); // obtain the list of System Processes
Lppe. dwsize: = sizeof (tprocessentry32); // You must initialize the lppe record size before calling the process32first API.
Found: = process32first (hsnapshot, lppe); // read the first process information in the process list into the PPE record.
While found do
Begin
If (uppercase (extractfilename (lppe. szexefile) = uppercase (afilename) or (uppercase (lppe. szexefile) = uppercase (afilename) then
Begin
{If msshow ('Do I close the Excel file if I find it opened? ', 2) = 6 then
Begin
// Since my operating system is XP, before calling the terminateprocess API
// I must first get the permission to shut down the process. If the operating system is below nt, you can directly stop the process.
Killhandle: = OpenProcess (process_terminate, false, lppe. th32processid );
Terminateprocess (killhandle, 0); // force process Shutdown
Closehandle (killhandle );
End ;}
Result: = true;
End;
Found: = process32next (hsnapshot, lppe); // read the information of the next process in the Process List into the lppe record.
End;
End; Procedure tfrmimportexcel. endprocess (afilename: string );
Const
Process_terminate =$ 0001;
VaR
Continueloop: bool;
Fsnapshothandle: thandle;
Fprocessentry32: tprocessentry32;
Begin
Fsnapshothandle: = createconlhelp32snapshot (th32cs_snapprocess, 0 );
Fprocessentry32.dwsize: = sizeof (fprocessentry32 );
Continueloop: = process32first (fsnapshothandle, fprocessentry32 );
While INTEGER (continueloop) <> 0 do
Begin
If (uppercase (extractfilename (fprocessentry32.szexefile) = uppercase (afilename) or (uppercase (fprocessentry32.szexefile) = uppercase (afilename) then
Terminateprocess (OpenProcess (process_terminate, bool (0), fprocessentry32.th32processid), 0 );
Continueloop: = process32next (fsnapshothandle, fprocessentry32 );
End;
End; // call if findprocess ('excel. EXE ') then
Begin
If msshow ('indicates that an Excel file has been opened, do you want to disable it? ', 2) <> 6 then exit;
Endprocess ('excel. EXE ');
End;