#DEFINE PROCESS_TERMINATE 1

DECLARE INTEGER OpenProcess IN kernel32;
	INTEGER dwDesiredAccess, INTEGER bInheritHandle,;
	INTEGER dwProcId

DECLARE INTEGER TerminateProcess IN kernel32;
	INTEGER hProcess, INTEGER uExitCode

DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject

hProcess = OpenProcess(PROCESS_TERMINATE, 0, nProcessId)
IF hProcess <> 0
	= TerminateProcess(hProcess, 0)
	= CloseHandle(hProcess)
ENDIF