Закрыть программу, завершить процесс

external(INT, "GetExitCodeProcess", "GetExitCodeProcess", "Kernel32.dll");
external(INT, "TerminateProcess", "TerminateProcess", "Kernel32.dll");
external(INT, "CloseHandle", "CloseHandle", "Kernel32.dll");

int PID=findprocess("notepad.exe"); // поиск процесса
if(PID!=-1)
{
int hProcess = openprocess(PID);
int ExitCode;
GetExitCodeProcess(hProcess, address(#ExitCode));
TerminateProcess(hProcess, ExitCode); // закрыть процесс
CloseHandle(hProcess);
}
else messagebox("Процесс не найден");