No cerrar Excel

[RaulChemical]

Buenas....

En algunos otros puntos de la aplicación, a petición del cliente, matamos el excel. Para matarlo, llamamos a esta función que encontramos en el TrucoMania (creo).

Código Delphi [-]
function KillTask(FileName:String):integer;
var
  ContinueLoop:BOOL;
  FSnapshotHandle:THandle;
  FProcessEntry32:TProcessEntry32;
const
  PROCESS_TERMINATE=$0001;
begin
Result:=0;
  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;

Espero que te sirva la función o parte de ella.

Suerte.

[grotero76]

Muchas gracias por tu rápida respuesta,

el caso es que la función que me has pasado no consigue matarme el proceso de Excel.
He conseguido detectar si un fichero en cuestión se está ejecutando con la siguiente función:

function EstaEjecutandose (FileName:string): boolean;
var H:word;
begin
     H := CreateFile(PChar(FileName), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
     Result := (H >= 65535);
     CloseHandle(H);
end;

de esta manera controlo que un mismo fichero no intenten
abrirlo dos veces, pero lo que quería era poder matar el proceso
que se está ejecutando y a continuación abrir una nueva instancia.
Hago una llamada a la función KillTask pero no hace nada, no se
si la estoy utilizando bien, simplemente hago lo siguiente:

   if EstaEjecutandose(FileName) then
       KillTask(FileName)

¿Hay algo que se me escape que pueda estar haciendo mal?

Muchas gracias de nuevo.

Un saludo.

[RaulChemical]

Yo llamo al killtask así y funciona:

Código Delphi [-]
KillTask('EXCEL.EXE');

Prueba así a ver....

[grotero76]

Ok, funciona, como el parámetro de la función KillTask era Filename pensé que había que pasarle el nombre del fichero en lugar del proceso, me había echo un lio.

Muchas gracias.