Cerrar Ejecutable externo

[JoseAlvarez]

Hola a todos amigos del foro.

Estoy utilizando el programa de terceros LTFViewr5u.exe para hacer un preview con la clase TDosPrn

Todo funciona muy bien, solo que al salir del modulo que lo llama, debo cerrarlo manualmente como es logico, ya que es una aplicacion de terceros.

Alguna manera de cerrarlo desde mi sistema?

Gracias por la ayuda que puedan prestarme

[hmpaquito]

c:= "TaskKill /IM LTFViewr5u.exe"
RUN &c

[karinha]

Intenta con:

Code: Select all  Expand view  RUN

   SendMessage( FindWindow( 0, "LTFViewr5u" ), WM_CLOSE )
 

Regards, saludos

[JoseAlvarez]

Estimados amigos,

Ninguna de las dos opciones funcionaron.

La de Joao se ejectua sin problemas pero no cierra el .exe

La de hmpaquito arroja error en RUN &C

[Baxajaun]

Buenos días !!!

José mira si en este hilo puedes encontrar lo que buscas:

https://groups.google.com/g/harbour-users/c/FCyLEly6l-0

Muchas gracias.

Saludos,

[Baxajaun]

También se podría ajustar el siguiente código a Harbour

Code: Select all  Expand view  RUN

#include <windows.h>
#include <process.h>
#include <Tlhelp32.h>
#include <winbase.h>
#include <string.h>
void killProcessByName(const char *filename)
{
    HANDLE hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, NULL);
    PROCESSENTRY32 pEntry;
    pEntry.dwSize = sizeof (pEntry);
    BOOL hRes = Process32First(hSnapShot, &pEntry);
    while (hRes)
    {
        if (strcmp(pEntry.szExeFile, filename) == 0)
        {
            HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, 0,
                                          (DWORD) pEntry.th32ProcessID);
            if (hProcess != NULL)
            {
                TerminateProcess(hProcess, 9);
                CloseHandle(hProcess);
            }
        }
        hRes = Process32Next(hSnapShot, &pEntry);
    }
    CloseHandle(hSnapShot);
}

Ejemplo:

Code: Select all  Expand view  RUN

int main()
{
    killProcessByName("notepad++.exe");
    return 0;
}

Sacado de Stackoverflow https://stackoverflow.com/questions/7956519/how-to-kill-processes-by-name-win32-api

Muchas gracias.

Saludos,

[Antonio Linares]

A petición de nuestro querido Felix:

Code: Select all  Expand view  RUN

function Main()

   KillProcessByName( "notepad.exe" )

return nil

#pragma BEGINDUMP

#include <Windows.h>
#include <hbapi.h>
#include <string.h>
#include <tlhelp32.h>

void killProcessByName(const char *filename)
{
    HANDLE hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, NULL);
    PROCESSENTRY32 pEntry;
    BOOL hRes;

    pEntry.dwSize = sizeof (pEntry);
    hRes = Process32First(hSnapShot, &pEntry);
   
    while (hRes)
    {
        if (strcmp(pEntry.szExeFile, filename) == 0)
        {
            HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, 0,
                                          (DWORD) pEntry.th32ProcessID);
            if (hProcess != NULL)
            {
                TerminateProcess(hProcess, 9);
                CloseHandle(hProcess);
            }
        }
        hRes = Process32Next(hSnapShot, &pEntry);
    }
    CloseHandle(hSnapShot);
}

HB_FUNC( KILLPROCESSBYNAME )
{
   killProcessByName( hb_parc( 1 ) );
}

#pragma ENDDUMP

[acuellar]

Estimados

Lo hago así

Code: Select all  Expand view  RUN

 WinExec("tskill  programa.exe",0)
 

También hay ésta forma.

Code: Select all  Expand view  RUN

FUNCTION CerrarProceso(cProceso)
  Local oWMIob, oWMIserver, aProcess, objProcess

  TRY
    oWMIob := CreateObject( "wbemScripting.SwbemLocator" )
    catch
    RETURN nil
  END
  oWMIserver := oWMIob:ConnectServer()
  aProcess :=oWMIserver:ExecQuery( "Select * from Win32_Process" )
  For Each objProcess in aProcess
    IF UPPER(objProcess:Name) = UPPER(cProceso)
      objProcess:Terminate()
    Endif
  Next

Return nil
 

[JoseAlvarez]

Hola a Todos,

Muchas Gracias a los que se avocaron a mi solicitud.
probé todas las opciones sugeridas y ninguna me habia funcionado. La que hizo el Master Linares adaptando la idea sugerida de baxajuan, funcionó perfecto.

Ademar, probé tu sugerencia y no quiso funcionar. Le coloque la A a la palabra Taskill que me imagino que la tecla se te escapó, pero aún asi no cerró el .exe

Antes habia solventado de manera poco elegante con esta funcion que me inventé,

Code: Select all  Expand view  RUN

Static Function Fnct_ClosePreview()

    Local cCommand, cBat

    cCommand  := 'taskkill /f /im LTFViewr5u.exe'
    cBat := fcreate( '_3.bat' ); fwrite( cBat,  cCommand )  ; fclose( cBat )
    WaitRun( ('_3.bat'), 0 )
    FErase ( '_3.bat' )

return .t.

 

Por supuesto ya la deseché.

Agradecido con todos, un abrazo.

[Baxajaun]

Hola José !

Me alegra saber que ha funcionado la función encontrada en stackoverflow, pero ten en cuenta, como dice en el hilo de dónde se ha sacado la función que es sensible a minúsculas y mayúsculas.

Saludos,

[JoseAlvarez]

Hola José !

Me alegra saber que ha funcionado la función encontrada en stackoverflow, pero ten en cuenta, como dice en el hilo de dónde se ha sacado la función que es sensible a minúsculas y mayúsculas.

Saludos,

Gracias amigo, lo tengo en cuenta