Quitar mensaje

[jandrorm]

Yo quiero detectar una serie de programas con mi aplicación en delphi. Se que para detectar un programa abierto es:

  var
  h: HWND;

h := FindWindow(nil, 'lo que sea');

Vale y para no hacer todos los FindWindow y aparte por comodidad. Quiero que al añadir uno a la BD o al editarlo el programa me lo busque. Aclarar que si detecta alguno de los programas el resultado sera el mismo para todos y si no los detecta también.

Entonces en vez de hacer:

h := FindWindow(nil, 'programa1');
h := FindWindow(nil, 'programa2');
h := FindWindow(nil, 'programa3');
h := FindWindow(nil, 'programa4);

Entonces para ahorrarme el código anterior y no tener que modificar el programa cada vez que añada uno nuevo me gustaría poder cojer el nombre del programa de la BD y que el delphi lo busque en el que esta utilizando la aplicacion.

Haber yo en la BD voy a almacenar una serie de nombres de programas:

CREATE TABLE `programas` (
  `id` int(9) unsigned NOT NULL auto_increment,
  `nombreprograma` varchar(16) NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;

Espero haberte aclarado un poco mas la idea de lo que quiero hacer y no haberte liado mas jeje, por cierto muchas gracias por tu empeño en ayudarme.