Optimizar código

[[escafandra]]

Empezado por MaxiDucoli

Se pueden buscar los exe en ejecución y terminarlos directamente? Eso sería de mucha ayuda para el programa principal...

Se me olvidaba esta parte.


Se puede terminar cualquier proceso a lo bruto aunque no es lo más recomendable. Se hace con la API TerminateProcess, pero es mejor tratar de terminarlos enviando el mensaje WM_CLOSE a la ventana principal de la aplicación. Si te interesa como buscar y matar procesos a lo bruto te dejo esto que escribí hace unos años:

Código Delphi [-]
uses
  Windows, TLHelp32;

.................

function EnablePrivilege(name: String; Enable: boolean = true): boolean;
var
  hToken: Cardinal;
  priv: TOKEN_PRIVILEGES;
begin
  priv.PrivilegeCount:= 1;
  priv.Privileges[0].Attributes:= 0;
  if Enable then priv.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
  LookupPrivilegeValue(nil, PCHAR(name), priv.Privileges[0].Luid);
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
  AdjustTokenPrivileges (hToken, FALSE, priv, sizeof(priv), nil, PDWORD(nil)^);
  Result:= (GetLastError = ERROR_SUCCESS);
  CloseHandle (hToken);
end;

procedure KillProcess(FileName: String);
var
  Process, hSysSnapshot: THandle;
  PE: TPROCESSENTRY32;
begin
  EnablePrivilege('SeDebugPrivilege');
  PE.dwSize:= sizeof(TPROCESSENTRY32);
  hSysSnapshot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSysSnapshot <> INVALID_HANDLE_VALUE) and Process32First(hSysSnapshot, PE) then
    repeat
      if (lstrcmpi(PE.szExeFile, PAnsiChar(FileName)) = 0) and (GetCurrentProcessID <> PE.th32ProcessID) then
      begin
        Process:= OpenProcess(PROCESS_TERMINATE, false, PE.th32ProcessID);
        if Process <> 0 then
        begin
          TerminateProcess(Process, 0);
          CloseHandle(process);
        end;
      end;
    until not Process32Next(hSysSnapshot, PE);
  CloseHandle(hSysSnapshot);
  EnablePrivilege('SeDebugPrivilege', false);
end;

Saludos.

[MaxiDucoli]

La ventana que necesito cerrar no hace más que abrirse en primer plano maximizada, de fondo tener una imagen como para tapar todo lo que sucede detrás y la idea es que una vez que se ejecute el programa emulador que deseo, esta ventana se cierre, ya que todo esto lo ejecuto desde un archivo .bat que te describo acá abajo:

@echo START
set HOME="\RetroLife\emulators\retroarch"
START "LAUNCHIMG" /B /D "\RetroLife" "FrmClose.exe" %2
START "RUN-EMU" /W /B /D "\RetroLife\emulators\retroarch" "retroarch.exe" -L "\RetroLife\emulators\retroarch\cores\%3_libretro.dll" --config "\RetroLife\emulators\retroarch\config\retroarch.cfg" --appendconfig "\RetroLife\emulators\retroarch\config\RetroLife-override.cfg" %1 --log-file "\RetroLife\logs\%3-Logfile.txt" -v
@echo Done


Lo que pasa acá es así:

Estoy dentro de un frontend de emuladores (EmulationStation por si lo conoces o Recalbox, Batocera, Retropie lo usan también pero en Linux) ejecuto el bat y le paso 3 parámetros

1 - Ubicación del juegos (ROM)
2 - nombre del sistema (es acá donde carga FrmClose.exe y le paso como parámetro el segundo parámetro del BAT que le indicaría donde cargar la imagen de fondo.
3 - Nombre para que guarde el LOG de todo lo que hace el emulador y seguir sus fallos.


Por lo que esa ventana que quiero cerrar no hace más que eso, mostrarse hasta que se abra el emulador.

Si le pongo que esa ventana lance directamente el emulador sin usar un BAT, cuando cierro esa ventana el frontend "piensa" que ya cerré el emulador y se vuelve a mostrar, dejando el emulador corriendo y eso no sirve.
Cuando cierro el emulador, el frontend debe volver a su estado maximizado, para esperar que le pase la ruta de otro juego o sistema.

Tenés alguna idea de como hacer para esperar a "ver" esa ventana del emulador y ahí cerrar la ventana de la imagen?

Por eso se me había ocurrido saber si el proceso se estaba ejecutando y cerrarla así nomás sin enviar ningún CLOSE.

[[escafandra]]

El problema es que no entiendo lo que quieres decir.
No se que es "esa ventana" no a que proceso corresponde, si es del emulador, si es tu Bat o si es una aplicación tuya.


Una ventana se puede cerrar pero si cierras su proceso, se acabó. No volverá a abrirse.
Cuando una ventana es la ventana principal de un proceso, generalmente cerrarla supone cerrar el proceso.


La consola no representa una ventana de un proceso sino un proceso sobre el que se ejecuta otro, usando la consola como sistema de interface. Cerrar la consola implica cerrar el proceso.


Si quieres saber si un proceso se está ejecutando, puedes usar este código:

Código Delphi [-]
uses
  Windows, TLHelp32;

function IsRuning(FileName: PAnsiChar): boolean;
var
  PE: TPROCESSENTRY32;
  ProcessHandle: THandle;
begin
  Result:= false;
  PE.dwSize:= sizeof(TPROCESSENTRY32);
  ProcessHandle:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, PE) then
    repeat
      if lstrcmpi(PE.szExeFile, FileName) = 0 then
      begin
        Result:= true;
        break;
      end;
    until not Process32Next(ProcessHandle, PE);
  CloseHandle(ProcessHandle);
end;

Puedes encontrar más información aquí y aquí.




Saludos.

[MaxiDucoli]

Es medio complicado todo esto para mi y por eso me complico al querer explicarlo.

A ver si puedo sin repetir lo que te dije antes jajajaja!!

Desde el frontend de emuladores yo lanzo mi bat.
En ese bat lanzo dos programas hechos por mi:

En el primer programa que se ejecuta con START lanzo el FRM que muestra la imagen del emulador, esa que tiene que estar un poco abierta tapando todo, hasta que el emulador esté en ejecución.

Ese emulador yo lo largo inmediatamente después de lanzar el FRM en el bat con START pero a este le pongo la opcion /W para que espere a que termine el preceso para cerrarse el bat y de esta manera el frontend no se cierre automáticamente y espere a que termine de ejecutar el emulador.

Con lo que me diste de IsRunning() voy a probar de ponerlo en un Timer dentro del primer programa (el lanzador de imagen) y que espere 5 segundos para ver si se lanzo el emulador y si da TRUE que se cierre.


Muchas gracias.

[[escafandra]]

¿El frontend es un programa de consola?
¿Porque dependes de un Bat y no lo haces todo con una APP?
¿Porqué quieres una ventana para tapar? ¿Tapar que?
¿Has pensado que tu ventana "Tapadora" no tiene porqué cerrarse, que puede esconderse?


Tu mecanismo es enrevesado, debes tratar de encontrar una estrategia clara, sencilla y limpia.


Saludos.

[MaxiDucoli]

Empezado por escafandra

¿El frontend es un programa de consola?
¿Porque dependes de un Bat y no lo haces todo con una APP?
¿Porqué quieres una ventana para tapar? ¿Tapar que?
¿Has pensado que tu ventana "Tapadora" no tiene porqué cerrarse, que puede esconderse?


Tu mecanismo es enrevesado, debes tratar de encontrar una estrategia clara, sencilla y limpia.


Saludos.

El frontend es un programa visual (creo que está hecho con SDL2)
Uso un bat por que no me di maña para hacerlo con un solo programa (fue mi idea original y tuve muchas fallas)
La ventana para "tapar" lo que hace es ponerse en primer plano con una imagen abarcando toda la pantalla y lo que tapa son todas las ventanas de consola que se ejecuten antes de arrancar el emulador y que quede más presentable.


Mi problema en hacerlo con un solo programa fue que sí o sí el frontend tiene que llamar a otro programa para que se ejecute, dado que no puedo hacer que ejecute el mismo programa abierto y que este me tire todo desde ahí.

Por eso hice una vez un post preguntando si se podían enviar mensajes a programas abiertos y (creo que vos) me respondiste que si y era con dos programas. Uno que era el "server" y el otro el "receptor". Lo hice así, pero era complicado para todo lo que quería hacer también.

O sea que si yo puedo ejecutar un programa hecho por mi, que este programa ejecute lo que quiero y abra el frontend y luego cuando el frontend quiera lanzar el emulador, tenga que volver a ejecutar mi programa abierto, seber que está abierto y en vez de ejecutarse, solo pasarle parámetros y lanzarlo me solucionaría todo.
Mi idea original era así, pero no sé hacer eso y busqué por todos lados, hasta pregunté acá, pero no encontré respuesta.



Lo de la idea ya lo sé. Es que soy muy desordenado y a eso hay que sumarle que mucho no sé de Delphi, solo lo básico y un poquito más capaz, ya que no soy programador.

Si podés darme un "empujón" con una idea para esto te lo agradecería mucho.

Gracias!

[[escafandra]]

A ver si entiendo. Quieres tapar lo que hace frontend hasta que termine. Luego quieres destapar pero más tarde frontend volverá a actuar y lo querrás volver a tapar. ¿Es así?
Eso implica que el programa tapador o no se cierra o requiere que le digan que tape. ¿Eso lo hace frontend?


No es complicado establecer un sistema de comunicación usando archivos de memoria compartida. Imagina este escenario:
Una App se ejecuta con unos parámetros en la linea de comandos y hace determinada cosa. Otra aplicación o el mismo usuario quiere pasarle más parametros pero sin cerrar la app. Para ello abre otra instancia de la app con los nuevos parámetros. Esta nueva instancia al empezar detecta que ya estaba corriendo otra copia, entonces lo que hace es abrir un archivo de memoria compartida, copia la línea de comandos en él y envía un mensaje a la primera instancia que le díce "¡Oye!, que te he mandado unas cosas". Este mensaje es un mensaje de Windows con PostMessage. La Primara instancia recibe el mensaje y lee el archivo de memoria compartida con toda la linea de parárametros y actúa en consecuencia. Mientras, la segunda instancia se autodestruye y jamás se ejecutará en su plenitud. Ambas instancias son de un mismo ejecutable, son lo mismo, pero actúan según si ya existía una previa.


Hay otras formas de comunicación pero ésta es sencilla desde el punto de vista del usuario pues para pasar parámetros siempre usa la misma forma, abrir la app y pasar los parámetros. el resto es automático.


Si esto te sugiere una solución puedes seguir adelante. Aquí publiqué una clase que crea un archivo de memoria compartida.




Saludos.