![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
Quitar mensaje
Buenas:
Tengo lo siguiente en mi programa: Código:
try MysqlConecta.Connect; finally if MysqlConecta.Connected then txtInfo.Lines.Add('Conexion existosa') else txtInfo.Lines.Add('Error en la Conexion.'); end; Tambien tengo otra duda: Quiero hacer un FindWindow que me busque todos los programas puestos en una BD. ¿Es posbile? Gracias. Última edición por jandrorm fecha: 29-12-2009 a las 13:27:02. |
#2
|
||||
|
||||
usa un try ... catch, el mensaje no aparecerá cuando ejecutes el programa sólo cuando lo ejecutes desde delphi
__________________
self.free; |
#3
|
||||
|
||||
![]() Puedes aumentar otro bloque try pero con except mas o menos asi:
Otra opcion es personalizar el mensaje de error algo asi: (Esta vez si vamos a escribir codigo en el bloque except ) Los dos fragmentos de codigos anteriores serian semejantes. ![]() Espero que te hubiera ayudado en algo. ![]() Saludos... ![]()
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7 Última edición por rgstuamigo fecha: 29-12-2009 a las 17:05:23. |
#4
|
||||
|
||||
![]() Una tercera opcion seria capturar el error en una variable de tipo Exception, y agregarle lo que quisieramos o personalizar el mensaje de error.
![]() Saludos... ![]()
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7 Última edición por rgstuamigo fecha: 29-12-2009 a las 17:05:36. |
#5
|
|||
|
|||
Hey perfecto añadi tu segunda opcion, jeje ayuda fue poco me lo hicistes todo jeje. Y alguien me puede resolver mi segunda duda? Muchas gracias a los dos por las respuestas.
|
#6
|
||||
|
||||
![]() Sobre tu segunda duda
![]() ![]() Saludos... ![]()
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7 |
#7
|
|||
|
|||
Vale me explico algo mejor, yo quiero tener una BD con una lista de programas y luego quiero en el programa, que me leea la BD y busque cada uno de ellos, de forma que si se añade un nuevo programa a esa BD lo buscara tambien, nose si ahora me explique mejor.
|
#8
|
||||
|
||||
![]() Pues amigo.... disculpa pero no acabo de entenderte.
![]() Dices: ...hasta ahi todo bien...pero lo que no me cuadra es ... Como es eso? ![]() En la Base de dato vas a guardar una lista de Programa? En que tipo de columna?,etc,etc ??? Cómo ó que exactamente vas a Guardar en la BD? ![]() Recalco: Por favor se mas detallista y explicate mejor. Los datos que das no son suficiente. ![]() Saludos... ![]()
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7 |
#9
|
|||
|
|||
Yo quiero detectar una serie de programas con mi aplicación en delphi. Se que para detectar un programa abierto es:
Código:
var h: HWND; h := FindWindow(nil, 'lo que sea'); Entonces en vez de hacer: Código:
h := FindWindow(nil, 'programa1'); h := FindWindow(nil, 'programa2'); h := FindWindow(nil, 'programa3'); h := FindWindow(nil, 'programa4); Haber yo en la BD voy a almacenar una serie de nombres de programas: Código:
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 ; |
#10
|
||||
|
||||
![]() Creo que por fin te hiciste entender...(aunque me queda ciertas dudas)..pero
Veamos.... Segun lo que te entiendo.. tendrias que hacerte un procedure o function que haga el FindWindow mas o menos asi: Esa Funcion te verifica si un programa esta en ejecusion. ahora para saber todos los programas que estan corriendo y que tengo registrado en mi base de dato, pues no me queda mas que comparar uno a uno, pero usando la anterior Funcion, mas o menos asi: (En el evento OnClick de un Boton) Espero te haya sido de utilidad. ![]()
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7 |
#11
|
|||
|
|||
Hey perfecto muchisimas gracias de verdad.
|
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como quitar mensaje de Windows? | vicvil | API de Windows | 5 | 31-07-2007 17:08:55 |
Quitar mensaje: "Discard changes this record?" | erick78 | Conexión con bases de datos | 0 | 07-12-2005 00:44:08 |
como quitar el mensaje "cable de red está desconectado" | RONPABLO | Windows | 2 | 17-11-2005 23:26:42 |
Como quitar mensaje en Word | Albano | Varios | 0 | 11-01-2005 22:12:22 |
Como puedo quitar el mensaje de conexion al interbase | malone | Firebird e Interbase | 1 | 12-06-2003 17:58:33 |
![]() |
|