Club Builder

[Alvaro]

Hola.
Necesito a alguien que me pueda traducir este código de Deplhi para poder usarlo con el Builder. Muchas Gracias

-------------------------------------------
Codigo:

function KillTask (FileName:String):integer;
var
ContinueLoop:BOOL;
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
const
PROCESS_TERMINATE=$0001;

begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop)<>0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(FileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(FileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0), FProcessEntry32.th32ProcessID),0));
ContinueLoop:=Process32Next (FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

[_Leo]

code:

---

/*---------------------------------------------------------------------------
    KillTask -- Esta función permite "matar" un proceso  utilizando su nombre
                de ejecución como identificación, devuelve 1 en caso de exito
                ó 0 en caso contrario. Por ejemplo,  tenemos el "notepad.exe"
                ejecutandose,  usariamos  esta  función  del  siguiente  modo
                para cerrarlo:  KillTask("notepad.exe");
---------------------------------------------------------------------------*/
int KillTask(String FileName)
{
    // Hay que añadir: #include <tlhelp32.h>
    bool ContinueLoop;
    HANDLE FSnapshotHandle;
    PROCESSENTRY32 FProcessEntry32;
    FSnapshotHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    FProcessEntry32.dwSize = sizeof(FProcessEntry32);
    ContinueLoop = Process32First(FSnapshotHandle, &FProcessEntry32);
    while (ContinueLoop)
    {
        if ( (UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) == UpperCase(FileName))
            | | (UpperCase(FProcessEntry32.szExeFile) == UpperCase(FileName)) )
        {
            return TerminateProcess(
                OpenProcess(PROCESS_TERMINATE, 0, FProcessEntry32.th32ProcessID),
                0);
        }
        ContinueLoop = Process32Next(FSnapshotHandle, &FProcessEntry32);
    }
    CloseHandle(FSnapshotHandle);
    return 0;
}
//---------------------------------------------------------------------------

---