Lenguaje de programación Borland Delphi
Este truco Delphi permite cerrar una aplicación externa cualquiera desde la nuestra. Desde nuestro programa desarrollado en Delphi podremos cerrar otra aplicación del sistema operativo Windows (cualquier otra aplicación). Para ello sólo necesitaremos saber el título de la ventana de la aplicación a cerrar.
Para cerrar otra aplicación desde la nuestra se puede usar la función de la API de Windows: PostMessage, para enviar un mensaje WM_CLOSE a su formulario principal. Esta función requiere el manejador (handle) de la ventana a la que se le quiere enviar el mensaje de cerrado. Se puede obtener este manejador (handle), por ejemplo, usando la función del API de Windows FindWindow. Ambas funciones del API de Windows están declaradas en la unidad "Windows" de Delphi, por lo que tendremos que añadirla al USES del formulario.
El código fuente Delphi completo de este truco será:
uses Windows, Messages;
procedure TForm1.cerrarAplicacionClick(Sender: TObject);
var
h: HWND;
begin
h := FindWindow(nil, 'Calculadora');
if h <> 0 then
PostMessage(h, WM_CLOSE, 0, 0);
end;
Este ejemplo Delphi cerrará la calculadora de Windows. Para cerrar cualquier otra aplicación será suficiente con cambiar "Calculadora" por el título de la ventana principal de la aplicación a cerrar. El título indicado debe ser único (que no corresponda a otra aplicación), sino se podría cerrar otra aplicación diferente a la esperada.
Publicado el: 2003-10-05