Cerrar un exe en Windows 2000

[cone220]

Tengo desarrollada una aplicación que corre en Windows 98, y en la que utilizo la función

function CierraExe (FicheroExe:string):boolean;

function SacaExe(MangoW:HWND):string;
{Obtiene el EXE de una tarea}
{get EXE of a task}
var
Datos :TProcessEntry32;
hID Word;
Snap : Integer;
begin
GetWindowThreadProcessId(MangoW,@hID);
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
try
Datos.dwSize:=SizeOf(Datos);
if(Process32First(Snap,Datos))then
begin
repeat
if Datos.th32ProcessID=hID then
begin
Result:=StrPas(Datos.szExeFile);
Break;
end;
until not(Process32Next(Snap,Datos));
end;
finally
Windows.CloseHandle(Snap);
end;
end;

(la saque de Trucomania).

El problema es que en Windows 2000 no me funciona, ya que el exe nunca llega a cerrarse.
Alguien conoce algun codigo que funcione en 2000????

Desde ya muchas gracias.

[Descendents]

Mira aki
Espero que te sirva
http://www.elrinconcito.com/delphi/trucos/Delphi43.htm

Saludos

[cone220]

Mucchas gracias. Lo probé y funciona.

Saludos