자료를 보니 다음과 같은 방법으로 임의의 파일를 종료할수 있다고 했는데
"ProcessEntry32"라는 것은 어디에 선언을 해야 하는지 몰라서 글을 올립니다.
컴파일를 하면 "Undeclared identifier : TProcessEntry32"라는 메세지가 자꾸 뜨거든요.. 어디에서 다시 선언을 해야하는지 고수님들께 부탁합니다.

function IsRun(sFindFile : string): Boolean;
var
peList : TProcessEntry32;
hL, hP : THandle;
begin
Result := False;
peList.dwSize := SizeOf(TProcessEntry32);
hL             := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Process32First(hL, peList) then begin
repeat
  if CompareText(peList.szExeFile, sFindFile) = 0 then begin
    hP := OpenProcess(PROCESS_ALL_ACCESS, TRUE, peList.th32ProcessID);
    TerminateProcess(hP, 0);
    Result := True;
    end;
  until not Process32Next(hL, peList);
end;
CloseHandle(hL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

if IsRun('c:uniquetcpip.exe')
then ShowMessage('실행중인 메모장을 종료했습니다.')
else ShowMessage('메모장이 실행 되지 않았네요.');

end;