98下如何关闭一个进程？TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P.processId),$F

98下如何关闭一个进程？TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P.processId),$FFFFFFFF);无效(50分)<br />由于程序没有窗口，只有进程模块，不能使用findWindows方法，
因为无法获得窗口名称，只好获取processId,2000下运行正常
可98下无法关闭程序，请教！
TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P.processId),$FFFFFFFF);

应该不会啊，下面这个过程我在98、2K下都可以用的：
function KillProcess(AProcessID: DWORD): Boolean;
var
hProcess: THandle;
begin
Result := False;
if GetCurrentProcessId &lt;&gt; AProcessID then
begin
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, AProcessID);
try
Result := (hProcess &gt; 0) and TerminateProcess(hProcess, 0);
finally
CloseHandle(hProcess);
end;
end;
end;

有高手出现喽，万事无忧。

好的，好象是没有问题，我的函数也没有问题
因为其他判断有错误，根本没有执行这条语句，呵呵，放心了